-- card: 3957 from stack: in.2 -- bmap block id: 4330 -- flags: 0000 -- background id: 2738 -- name: fulltoo ----- HyperTalk script ----- on openCard put the script of this stack into x if x = empty then put the script of cd fld deletestack into y set the script of this stack to y answer "Making repairs to stack" answer "It must be re-opened" domenu "Quit Hypercard" end if hide card fld yes7fld hide card fld yes6fld hide card fld yes5fld hide card fld yes4fld hide card fld no7fld hide card fld no6fld hide card fld no5fld hide card fld no4fld hide card fld deleted hide card fld conclusion hide card fld finished hide card fld stackscr hide card fld expertmenu hide card fld deletestack end openCard -- part 1 (field) -- low flags: 01 -- high flags: 0002 -- rect: left=57 top=98 right=111 bottom=117 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: yes1 ----- HyperTalk script ----- on mouseUp global qc, fldloc, cdname, aligntype, gocon, goconvar set lockscreen to true put card fld "yes1" into x if x is empty then beep 1 answer "There is no answer here to work with" exit mouseUp end if put card fld "ques2" into e if e ≠ empty then answer "There is already a path for this question" with "OK" exit mouseUp end if answer "Work on this answer of this question" with "CANCEL" or "OK" if it is "Cancel" then exit mouseUp end if put the short name of this card into cdname if it is "OK" then answer "Is this 1.Conclusion 2.Question?" with "1" or "2" if it is "2" then put "Question" into card fld label2 if cd fld "dqcount" ≠ 0 then put item 1 of card fld dqcount into qc if the number of items in card fld "dqcount" = 1 then put 0 into card fld "dqcount" else delete item 1 of card fld "dqcount" end if put the script of card fld "finished" into p put qc into card fld ques2 add 1 to card fld "ans count" else put card fld "ans count" into qc put the script of card fld "finished" into p add 1 to qc put qc into card fld "ans count" put qc into card fld ques2 end if put card fld ques2 into qcc put the short name of me into fldloc put card fld fldloc into x put card fld ques1 into qc go to card "ques"&qc add 1 to qc set the script of card button x to "on mouseUp" &return&"go to card ques"&qcc &return&"end mouseUp" domenu "new card" choose text tool set textAlign to left set textSize to 24 set textStyle to bold, underline click at 10,44 type "Question:" choose button tool domenu "new button" set name of card button "new button" to "finished" set rect of card button "finished" to 229,330,303,342 set script of card button "finished" to p choose browse tool set the name of this card to "ques"&qcc domenu "new field" set the name of card fld "" to "funny" set the textAlign of card fld "funny" to aligntype set the style of card fld funny to scrolling choose browse tool click at 246,131 else answer "Is this conclusion going to a question" with "Yes" or "No" put it into gocon put empty into goconvar if gocon = "Yes" then ask "Please enter the question number" if it is empty then exit mouseUp end if put it into goconvar repeat with x = 1 to the number of items in card fld dqcount if goconvar = item x of card fld dqcount then answer "You deleted question "&goconvar exit mouseUp end if end repeat if goconvar > card fld "ans count" then answer "There is no question "&goconvar subtract 1 from card fld "cd count" exit mouseUp end if end if put "Conclusion" into card fld label2 if card fld dccount ≠ 0 then put item 1 of card fld dccount into qc if the number of items in cd fld dccount = 1 then put 0 into card fld dccount else delete item 1 of cd fld dccount end if put the script of card fld "conclusion" into zz put qc into card fld ques2 add 1 to cd fld "con count" else put card fld "con count" into qc put the script of card fld "conclusion" into zz add 1 to qc put qc into card fld "con count" put qc into card fld ques2 end if put card fld ques2 into qcc put the short name of me into fldloc put card fld fldloc into x put card fld ques1 into qc go to card "ques"&qc set the script of card button x to "on mouseUp" &return&"go to card con"&qcc &return&"end mouseUp" --domenu "new background" --set the name of this background to "questions" domenu "new card" choose text tool set textAlign to left set textSize to 24 set textStyle to bold, underline click at 10,44 type "Conclusion:" choose button tool domenu "new button" set name of card button "new button" to "finished" set rect of card button "finished" to 229,330,303,342 set script of card button "finished" to zz choose browse tool set the name of this card to "con"&qcc domenu "new field" set the name of card fld "" to "funny" set the textAlign of card fld "funny" to aligntype set the style of card fld funny to scrolling choose browse tool click at 246,131 end if end if set lockscreen to false end mouseUp -- part 2 (field) -- low flags: 01 -- high flags: 0002 -- rect: left=57 top=174 right=186 bottom=117 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: no1 ----- HyperTalk script ----- on mouseUp global qc, fldloc, cdname, aligntype, gocon, goconvar set lockscreen to true put card fld "no1" into x if x is empty then beep 1 answer "There is no answer here to work with" exit mouseUp end if put card fld "ques3" into e if e ≠ empty then answer "There is already a path for this question" with "OK" exit mouseUp end if answer "Work on this answer of this question" with "CANCEL" or "OK" if it is "Cancel" then exit mouseUp end if put the short name of this card into cdname if it is "OK" then answer "Is this 1.Conclusion 2.Question?" with "1" or "2" if it is "2" then put "Question" into card fld label3 if cd fld "dqcount" ≠ 0 then put item 1 of card fld dqcount into qc if the number of items in card fld "dqcount" = 1 then put 0 into card fld "dqcount" else delete item 1 of card fld "dqcount" end if put the script of card fld "finished" into p put qc into card fld ques3 add 1 to card fld "ans count" else put card fld "ans count" into qc put the script of card fld "finished" into p add 1 to qc put qc into card fld "ans count" put qc into card fld ques3 end if put card fld ques3 into qcc put the short name of me into fldloc put card fld fldloc into x put card fld ques1 into qc go to card "ques"&qc add 1 to qc set the script of card button x to "on mouseUp" &return&"go to card ques"&qcc &return&"end mouseUp" go to last card domenu "new card" choose text tool set textAlign to left set textSize to 24 set textStyle to bold, underline click at 10,44 type "Question:" choose button tool domenu "new button" set name of card button "new button" to "finished" set rect of card button "finished" to 229,330,303,342 set script of card button "finished" to p choose browse tool set the name of this card to "ques"&qcc domenu "new field" set the name of card fld "" to "funny" set the textAlign of card fld "funny" to aligntype set the style of card fld funny to scrolling choose browse tool click at 246,131 else answer "Is this conclusion going to a question" with "Yes" or "No" put it into gocon put empty into goconvar if gocon = "Yes" then ask "Please enter the question number" if it is empty then exit mouseUp end if put it into goconvar repeat with x = 1 to the number of items in card fld dqcount if goconvar = item x of card fld dqcount then answer "You deleted question "&goconvar exit mouseUp end if end repeat if goconvar > card fld "ans count" then answer "There is no question "&goconvar subtract 1 from card fld "cd count" exit mouseUp end if end if put "Conclusion" into card fld label3 if card fld dccount ≠ 0 then put item 1 of card fld dccount into qc if the number of items in cd fld dccount = 1 then put 0 into card fld dccount else delete item 1 of cd fld dccount end if put the script of card fld "conclusion" into zz put qc into card fld ques3 add 1 to cd fld "con count" else put card fld "con count" into qc put the script of card fld "conclusion" into zz add 1 to qc put qc into card fld "con count" put qc into card fld ques3 end if put card fld ques3 into qcc put the short name of me into fldloc put card fld fldloc into x put card fld ques1 into qc go to card "ques"&qc set the script of card button x to "on mouseUp" &return&"go to card con"&qcc &return&"end mouseUp" --domenu "new background" --set the name of this background to "questions" domenu "new card" choose text tool set textAlign to left set textSize to 24 set textStyle to bold, underline click at 10,44 type "Conclusion:" choose button tool domenu "new button" set name of card button "new button" to "finished" set rect of card button "finished" to 229,330,303,342 set script of card button "finished" to zz choose browse tool set the name of this card to "con"&qcc domenu "new field" set the name of card fld "" to "funny" set the textAlign of card fld "funny" to aligntype set the style of card fld funny to scrolling choose browse tool click at 246,131 end if end if set lockscreen to false end mouseUp -- part 3 (field) -- low flags: 01 -- high flags: 0002 -- rect: left=157 top=31 right=43 bottom=214 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: yes3 ----- HyperTalk script ----- on mouseUp global qc, fldloc, cdname, aligntype, gocon, goconvar set lockscreen to true put card fld "yes3" into x if x is empty then beep 1 answer "There is no answer here to work with" exit mouseUp end if put card fld "ques7" into e if e ≠ empty then answer "There is already a path for this question" with "OK" exit mouseUp end if answer "Work on this answer of this question" with "CANCEL" or "OK" if it is "Cancel" then exit mouseUp end if put the short name of this card into cdname if it is "OK" then answer "Is this 1.Conclusion 2.Question?" with "1" or "2" if it is "2" then put "Question" into card fld label7 if cd fld "dqcount" ≠ 0 then put item 1 of card fld dqcount into qc if the number of items in card fld "dqcount" = 1 then put 0 into card fld "dqcount" else delete item 1 of card fld "dqcount" end if put the script of card fld "finished" into p put qc into card fld ques7 add 1 to card fld "ans count" else put card fld "ans count" into qc put the script of card fld "finished" into p add 1 to qc put qc into card fld "ans count" put qc into card fld ques7 end if put card fld ques7 into qcc put the short name of me into fldloc put card fld fldloc into x put card fld ques2 into qc go to card "ques"&qc add 1 to qc set the script of card button x to "on mouseUp" &return&"go to card ques"&qcc &return&"end mouseUp" domenu "new card" choose text tool set textAlign to left set textSize to 24 set textStyle to bold, underline click at 10,44 type "Question:" choose button tool domenu "new button" set name of card button "new button" to "finished" set rect of card button "finished" to 229,330,303,342 set script of card button "finished" to p choose browse tool set the name of this card to "ques"&qcc domenu "new field" set the name of card fld "" to "funny" set the textAlign of card fld "funny" to aligntype set the style of card fld funny to scrolling choose browse tool click at 246,131 else answer "Is this conclusion going to a question" with "Yes" or "No" put it into gocon put empty into goconvar if gocon = "Yes" then ask "Please enter the question number" if it is empty then exit mouseUp end if put it into goconvar repeat with x = 1 to the number of items in card fld dqcount if goconvar = item x of card fld dqcount then answer "You deleted question "&goconvar exit mouseUp end if end repeat if goconvar > card fld "ans count" then answer "There is no question "&goconvar subtract 1 from card fld "cd count" exit mouseUp end if end if put "Conclusion" into card fld label7 if card fld dccount ≠ 0 then put item 1 of card fld dccount into qc if the number of items in cd fld dccount = 1 then put 0 into card fld dccount else delete item 1 of cd fld dccount end if put the script of card fld "conclusion" into zz put qc into card fld ques7 add 1 to cd fld "con count" else put card fld "con count" into qc put the script of card fld "conclusion" into zz add 1 to qc put qc into card fld "con count" put qc into card fld ques7 end if put card fld ques7 into qcc put the short name of me into fldloc put card fld fldloc into x put card fld ques2 into qc go to card "ques"&qc set the script of card button x to "on mouseUp" &return&"go to card con"&qcc &return&"end mouseUp" --domenu "new background" --set the name of this background to "questions" domenu "new card" choose text tool set textAlign to left set textSize to 24 set textStyle to bold, underline click at 10,44 type "Conclusion:" choose button tool domenu "new button" set name of card button "new button" to "finished" set rect of card button "finished" to 229,330,303,342 set script of card button "finished" to zz choose browse tool set the name of this card to "con"&qcc domenu "new field" set the name of card fld "" to "funny" set the textAlign of card fld "funny" to aligntype set the style of card fld funny to scrolling choose browse tool click at 246,131 end if end if set lockscreen to false end mouseUp -- part 4 (field) -- low flags: 01 -- high flags: 0002 -- rect: left=157 top=87 right=99 bottom=216 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: no3 ----- HyperTalk script ----- on mouseUp global qc, fldloc, cdname, aligntype, gocon, goconvar set lockscreen to true put card fld "no3" into x if x is empty then beep 1 answer "There is no answer here to work with" exit mouseUp end if put card fld "ques6" into e if e ≠ empty then answer "There is already a path for this question" with "OK" exit mouseUp end if answer "Work on this answer of this question" with "CANCEL" or "OK" if it is "Cancel" then exit mouseUp end if put the short name of this card into cdname if it is "OK" then answer "Is this 1.Conclusion 2.Question?" with "1" or "2" if it is "2" then put "Question" into card fld label6 if cd fld "dqcount" ≠ 0 then put item 1 of card fld dqcount into qc if the number of items in card fld "dqcount" = 1 then put 0 into card fld "dqcount" else delete item 1 of card fld "dqcount" end if put the script of card fld "finished" into p put qc into card fld ques6 add 1 to card fld "ans count" else put card fld "ans count" into qc put the script of card fld "finished" into p add 1 to qc put qc into card fld "ans count" put qc into card fld ques6 end if put card fld ques6 into qcc put the short name of me into fldloc put card fld fldloc into x put card fld ques2 into qc go to card "ques"&qc add 1 to qc set the script of card button x to "on mouseUp" &return&"go to card ques"&qcc &return&"end mouseUp" --domenu "new background" --set the name of this background to "questions" domenu "new card" choose text tool set textAlign to left set textSize to 24 set textStyle to bold, underline click at 10,44 type "Question:" choose button tool domenu "new button" set name of card button "new button" to "finished" set rect of card button "finished" to 229,330,303,342 set script of card button "finished" to p choose browse tool set the name of this card to "ques"&qcc domenu "new field" set the name of card fld "" to "funny" set the textAlign of card fld "funny" to aligntype set the style of card fld funny to scrolling choose browse tool click at 246,131 else answer "Is this conclusion going to a question" with "Yes" or "No" put it into gocon put empty into goconvar if gocon = "Yes" then ask "Please enter the question number" if it is empty then exit mouseUp end if put it into goconvar repeat with x = 1 to the number of items in card fld dqcount if goconvar = item x of card fld dqcount then answer "You deleted question "&goconvar exit mouseUp end if end repeat if goconvar > card fld "ans count" then answer "There is no question "&goconvar subtract 1 from card fld "cd count" exit mouseUp end if end if put "Conclusion" into card fld label6 if card fld dccount ≠ 0 then put item 1 of card fld dccount into qc if the number of items in cd fld dccount = 1 then put 0 into card fld dccount else delete item 1 of cd fld dccount end if put the script of card fld "conclusion" into zz put qc into card fld ques6 add 1 to cd fld "con count" else put card fld "con count" into qc put the script of card fld "conclusion" into zz add 1 to qc put qc into card fld "con count" put qc into card fld ques6 end if put card fld ques6 into qcc put the short name of me into fldloc put card fld fldloc into x put card fld ques2 into qc go to card "ques"&qc set the script of card button x to "on mouseUp" &return&"go to card con"&qcc &return&"end mouseUp" --domenu "new background" --set the name of this background to "questions" domenu "new card" choose text tool set textAlign to left set textSize to 24 set textStyle to bold, underline click at 10,44 type "Conclusion:" choose button tool domenu "new button" set name of card button "new button" to "finished" set rect of card button "finished" to 229,330,303,342 set script of card button "finished" to zz choose browse tool set the name of this card to "con"&qcc domenu "new field" set the name of card fld "" to "funny" set the textAlign of card fld "funny" to aligntype set the style of card fld funny to scrolling choose browse tool click at 246,131 end if end if set lockscreen to false end mouseUp -- part 5 (field) -- low flags: 01 -- high flags: 0002 -- rect: left=160 top=188 right=200 bottom=219 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: yes2 ----- HyperTalk script ----- on mouseUp global qc, fldloc, cdname, aligntype, gocon, goconvar set lockscreen to true put card fld "yes2" into x if x is empty then beep 1 answer "There is no answer here to work with" exit mouseUp end if put card fld "ques5" into e if e ≠ empty then answer "There is already a path for this question" with "OK" exit mouseUp end if answer "Work on this answer of this question" with "CANCEL" or "OK" if it is "Cancel" then exit mouseUp end if put the short name of this card into cdname if it is "OK" then answer "Is this 1.Conclusion 2.Question?" with "1" or "2" if it is "2" then put "Question" into card fld label5 if cd fld "dqcount" ≠ 0 then put item 1 of card fld dqcount into qc if the number of items in card fld "dqcount" = 1 then put 0 into card fld "dqcount" else delete item 1 of card fld "dqcount" end if put the script of card fld "finished" into p put qc into card fld ques5 add 1 to card fld "ans count" else put card fld "ans count" into qc put the script of card fld "finished" into p add 1 to qc put qc into card fld "ans count" put qc into card fld ques5 end if put card fld ques5 into qcc put the short name of me into fldloc put card fld fldloc into x put card fld ques3 into qc go to card "ques"&qc add 1 to qc set the script of card button x to "on mouseUp" &return&"go to card ques"&qcc &return&"end mouseUp" go to last card domenu "new card" choose text tool set textAlign to left set textSize to 24 set textStyle to bold, underline click at 10,44 type "Question:" choose button tool domenu "new button" set name of card button "new button" to "finished" set rect of card button "finished" to 229,330,303,342 set script of card button "finished" to p choose browse tool set the name of this card to "ques"&qcc domenu "new field" set the name of card fld "" to "funny" set the textAlign of card fld "funny" to aligntype set the style of card fld funny to scrolling choose browse tool click at 246,131 else answer "Is this conclusion going to a question" with "Yes" or "No" put it into gocon put empty into goconvar if gocon = "Yes" then ask "Please enter the question number" if it is empty then exit mouseUp end if put it into goconvar repeat with x = 1 to the number of items in card fld dqcount if goconvar = item x of card fld dqcount then answer "You deleted question "&goconvar exit mouseUp end if end repeat if goconvar > card fld "ans count" then answer "There is no question "&goconvar subtract 1 from card fld "cd count" exit mouseUp end if end if put "Conclusion" into card fld label5 if card fld dccount ≠ 0 then put item 1 of card fld dccount into qc if the number of items in cd fld dccount = 1 then put 0 into card fld dccount else delete item 1 of cd fld dccount end if put the script of card fld "conclusion" into zz put qc into card fld ques5 add 1 to cd fld "con count" else put card fld "con count" into qc put the script of card fld "conclusion" into zz add 1 to qc put qc into card fld "con count" put qc into card fld ques5 end if put card fld ques5 into qcc put the short name of me into fldloc put card fld fldloc into x put card fld ques3 into qc go to card "ques"&qc set the script of card button x to "on mouseUp" &return&"go to card con"&qcc &return&"end mouseUp" --domenu "new background" --set the name of this background to "questions" domenu "new card" choose text tool set textAlign to left set textSize to 24 set textStyle to bold, underline click at 10,44 type "Conclusion:" choose button tool domenu "new button" set name of card button "new button" to "finished" set rect of card button "finished" to 229,330,303,342 set script of card button "finished" to zz choose browse tool set the name of this card to "con"&qcc domenu "new field" set the name of card fld "" to "funny" set the textAlign of card fld "funny" to aligntype set the style of card fld funny to scrolling choose browse tool click at 246,131 end if end if set lockscreen to false end mouseUp -- part 6 (field) -- low flags: 01 -- high flags: 0002 -- rect: left=160 top=244 right=256 bottom=219 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: no2 ----- HyperTalk script ----- on mouseUp global qc, fldloc, cdname, aligntype, gocon, goconvar set lockscreen to true put card fld "no2" into x if x is empty then beep 1 answer "There is no answer here to work with" exit mouseUp end if put card fld "ques4" into e if e ≠ empty then answer "There is already a path for this question" with "OK" exit mouseUp end if answer "Work on this answer of this question" with "CANCEL" or "OK" if it is "Cancel" then exit mouseUp end if put the short name of this card into cdname if it is "OK" then answer "Is this 1.Conclusion 2.Question?" with "1" or "2" if it is "2" then put "Question" into card fld label4 if cd fld "dqcount" ≠ 0 then put item 1 of card fld dqcount into qc if the number of items in card fld "dqcount" = 1 then put 0 into card fld "dqcount" else delete item 1 of card fld "dqcount" end if put the script of card fld "finished" into p put qc into card fld ques4 add 1 to card fld "ans count" else put card fld "ans count" into qc put the script of card fld "finished" into p add 1 to qc put qc into card fld "ans count" put qc into card fld ques4 end if put card fld ques4 into qcc put the short name of me into fldloc put card fld fldloc into x put card fld ques3 into qc go to card "ques"&qc add 1 to qc set the script of card button x to "on mouseUp" &return&"go to card ques"&qcc &return&"end mouseUp" --domenu "new background" --set the name of this background to "questions" go to last card domenu "new card" choose text tool set textAlign to left set textSize to 24 set textStyle to bold, underline click at 10,44 type "Question:" choose button tool domenu "new button" set name of card button "new button" to "finished" set rect of card button "finished" to 229,330,303,342 set script of card button "finished" to p choose browse tool set the name of this card to "ques"&qcc domenu "new field" set the name of card fld "" to "funny" set the textAlign of card fld "funny" to aligntype set the style of card fld funny to scrolling choose browse tool click at 246,131 else answer "Is this conclusion going to a question" with "Yes" or "No" put it into gocon put empty into goconvar if gocon = "Yes" then ask "Please enter the question number" if it is empty then exit mouseUp end if put it into goconvar repeat with x = 1 to the number of items in card fld dqcount if goconvar = item x of card fld dqcount then answer "You deleted question "&goconvar exit mouseUp end if end repeat if goconvar > card fld "ans count" then answer "There is no question "&goconvar subtract 1 from card fld "cd count" exit mouseUp end if end if put "Conclusion" into card fld label4 if card fld dccount ≠ 0 then put item 1 of card fld dccount into qc if the number of items in cd fld dccount = 1 then put 0 into card fld dccount else delete item 1 of cd fld dccount end if put the script of card fld "conclusion" into zz put qc into card fld ques4 add 1 to cd fld "con count" else put card fld "con count" into qc put the script of card fld "conclusion" into zz add 1 to qc put qc into card fld "con count" put qc into card fld ques4 end if put card fld ques4 into qcc put the short name of me into fldloc put card fld fldloc into x put card fld ques3 into qc go to card "ques"&qc set the script of card button x to "on mouseUp" &return&"go to card con"&qcc &return&"end mouseUp" --domenu "new background" --set the name of this background to "questions" domenu "new card" choose text tool set textAlign to left set textSize to 24 set textStyle to bold, underline click at 10,44 type "Conclusion:" choose button tool domenu "new button" set name of card button "new button" to "finished" set rect of card button "finished" to 229,330,303,342 set script of card button "finished" to zz choose browse tool set the name of this card to "con"&qcc domenu "new field" set the name of card fld "" to "funny" set the textAlign of card fld "funny" to aligntype set the style of card fld funny to scrolling choose browse tool click at 246,131 end if end if set lockscreen to false end mouseUp -- part 7 (field) -- low flags: 01 -- high flags: 0002 -- rect: left=287 top=4 right=16 bottom=344 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: yes7 ----- HyperTalk script ----- on mouseUp global qc, fldloc, cdname, aligntype, gocon, goconvar set lockscreen to true put card fld "yes7" into x if x is empty then beep 1 answer "There is no answer here to work with" exit mouseUp end if put card fld "yes7fld" into e if e ≠ empty then answer "There is already a path for this question" with "OK" exit mouseUp end if answer "Work on this answer of this question" with "CANCEL" or "OK" if it is "CANCEL" then exit mouseUp else add 1 to card fld "cd count" put the short name of me into fldloc put the short name of this card into cdname put card fld ques7 into qc put the number of card buttons into cb answer "Is this a 1.Conclusion 2.Question?" with "1" or "2" put it into zxx if zxx = 2 then if cd fld "dqcount" = 0 then put card fld "ans count" into qcc add 1 to qcc put qcc into card fld "ans count" else put item 1 of card fld dqcount into qcc if the number of items in card fld "dqcount" = 1 then put 0 into card fld "dqcount" else delete item 1 of card fld "dqcount" end if put qcc into card fld "ans count" --add 1 to qcc end if end if if zxx = 1 then answer "Is this conclusion going to a question" with "Yes" or "No" put it into gocon put empty into goconvar if gocon = "Yes" then ask "Please enter the question number" if it is empty then exit mouseUp end if put it into goconvar repeat with x = 1 to the number of items in card fld dqcount if goconvar = item x of card fld dqcount then answer "You deleted question "&goconvar exit mouseUp end if end repeat if goconvar > card fld "ans count" then answer "There is no question "&goconvar subtract 1 from card fld "cd count" exit mouseUp end if end if if cd fld "dccount" = 0 then put card fld "con count" into qcc put card fld "con count" into qccsaved add 1 to qcc add 1 to qccsaved else put item 1 of card fld dccount into qcc put item 1 of card fld dccount into qccsaved if the number of items in cd fld dccount = 1 then put 0 into cd fld dccount else delete item 1 of cd fld dccount end if end if put qcc into card fld "con count" add 10000 to qcc end if put card fld "ans count" into rt put card fld "con count" into tt put card fld "cd count" into pt put card fld "dccount" into xd put card fld "dqcount" into zd put cd fld problem into pm domenu "new button" set the rect of card btn "new button" to 349,1,374,17 set the showName of card btn "new button" to false set the style of card btn "new button" to transparent set the icon of card btn "new button" to "Sml Next Arrow" set the loc of card btn "new button" to 382,8 set the script of card btn "new button" to "on mouseUp" &return&"put card fld ""e&"con count""e&"into x" &return&"put card fld ""e&"ans count""e&"into y" &return&"put card fld ""e&"cd count""e&"into z" &return&"put card fld ""e&"dccount""e&"into xd" &return&"put card fld ""e&"dqcount""e&"into zd" &return&"put card fld ""e&"problem""e&"into pm" &return&"go to card full"&qcc &return&"put x into card fld ""e&"con count""e &return&"put y into card fld ""e&"ans count""e &return&"put z into card fld ""e&"cd count""e &return&"put xd into card fld ""e&"dccount""e &return&"put zd into card fld ""e&"dqcount""e &return&"put pm into card fld ""e&"problem""e &return&"end mouseUp" if zxx = "2" then set the name of card button "new button" to "butques"&qcc else set the name of card button "new button" to "butcon"&qcc end if if zxx = "2" then put "ques"&qcc into card fld yes7fld else put "con"&qcc into card fld yes7fld end if go to card fulltoo domenu "copy card" domenu "paste card" set the name of this card to "full"&qcc put rt into card fld "ans count" put pt into card fld "cd count" put tt into card fld "con count" put xd into card fld "dccount" put zd into card fld "dqcount" put pm into cd fld "problem" domenu "new button" set the rect of card btn "new button" to 349,1,374,17 set the showName of card btn "new button" to false set the style of card btn "new button" to transparent set the icon of card btn "new button" to "Sml Prev Arrow" set the loc of card btn "new button" to 17,176 set the script of card btn "new button" to "on mouseUp" &return&"put card fld ""e&"con count""e&"into x" &return&"put card fld ""e&"ans count""e&"into y" &return&"put card fld ""e&"cd count""e&"into z" &return&"put card fld ""e&"dccount""e&"into xd" &return&"put card fld ""e&"dqcount""e&"into zd" &return&"put card fld ""e&"problem""e&"into pm" &return&"go to card "&cdname &return&"put x into card fld ""e&"con count""e &return&"put y into card fld ""e&"ans count""e &return&"put z into card fld ""e&"cd count""e &return&"put xd into card fld ""e&"dccount""e &return&"put zd into card fld ""e&"dqcount""e &return&"put pm into card fld ""e&"problem""e &return&"end mouseUp" set the name of card button "new button" to "bac"&qcc put the short name of this card into cdname if zxx is "2" then put the script of card fld "finished" into p put qcc into card fld ques1 put "Question" into card fld label1 go to card "ques"&qc set the script of card button x to "on mouseUp" &return&"go to card ques"&qcc &return&"end mouseUp" domenu "new card" choose text tool set textAlign to left set textSize to 24 set textStyle to bold, underline click at 10,44 type "Question:" choose button tool domenu "new button" set name of card button "new button" to "finished" set rect of card button "finished" to 229,330,303,342 set script of card button "finished" to p choose browse tool set the name of this card to "ques"&qcc domenu "new field" set the name of card fld "" to "funny" set the textAlign of card fld "funny" to aligntype set the style of card fld funny to scrolling answer "Type your question in this field" with "OK" answer "Click the finished button when done" with "OK" choose browse tool click at 246,131 else put the script of card fld "conclusion" into zz put "Conclusion" into card fld "label1" put qccsaved into card fld ques1 go to card "ques"&qc set the script of card button x to "on mouseUp" &return&"go to card con"&qcc &return&"end mouseUp" --domenu "new background" --set the name of this background to "questions" domenu "new card" choose text tool set textAlign to left set textSize to 24 set textStyle to bold, underline click at 10,44 type "Conclusion:" choose button tool domenu "new button" set name of card button "new button" to "finished" set rect of card button "finished" to 229,330,303,342 set script of card button "finished" to zz choose browse tool set the name of this card to "con"&qcc domenu "new field" set the name of card fld "" to "funny" set the textAlign of card fld "funny" to aligntype set the style of card fld funny to scrolling answer "Type your conclusion in this field" with "OK" answer "Click the finished button when done" with "OK" choose browse tool click at 246,131 end if end if set lockscreen to false end mouseUp -- part 8 (field) -- low flags: 01 -- high flags: 0002 -- rect: left=287 top=34 right=46 bottom=344 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: no7 ----- HyperTalk script ----- on mouseUp global qc, fldloc, cdname, aligntype, gocon, goconvar set lockscreen to true put card fld "no7" into x if x is empty then beep 1 answer "There is no answer here to work with" exit mouseUp end if put card fld "no7fld" into e if e ≠ empty then answer "There is already a path for this question" with "OK" exit mouseUp end if answer "Work on this answer of this question" with "CANCEL" or "OK" if it is "CANCEL" then exit mouseUp else add 1 to card fld "cd count" put the short name of me into fldloc put the short name of this card into cdname put card fld ques7 into qc put the number of card buttons into cb answer "Is this a 1.Conclusion 2.Question?" with "1" or "2" put it into zxx if zxx = 2 then if cd fld "dqcount" = 0 then put card fld "ans count" into qcc add 1 to qcc put qcc into card fld "ans count" else put item 1 of card fld dqcount into qcc if the number of items in card fld "dqcount" = 1 then put 0 into card fld "dqcount" else delete item 1 of card fld "dqcount" end if --add 1 to qcc put qcc into card fld "ans count" end if end if if zxx = 1 then answer "Is this conclusion going to a question" with "Yes" or "No" put it into gocon put empty into goconvar if gocon = "Yes" then ask "Please enter the question number" if it is empty then exit mouseUp end if put it into goconvar repeat with x = 1 to the number of items in card fld dqcount if goconvar = item x of card fld dqcount then answer "You deleted question "&goconvar exit mouseUp end if end repeat if goconvar > card fld "ans count" then answer "There is no question "&goconvar subtract 1 from card fld "cd count" exit mouseUp end if end if if cd fld "dccount" = 0 then put card fld "con count" into qcc put card fld "con count" into qccsaved add 1 to qcc add 1 to qccsaved else put item 1 of card fld dccount into qcc put item 1 of card fld dccount into qccsaved if the number of items in cd fld dccount = 1 then put 0 into cd fld dccount else delete item 1 of cd fld dccount end if end if put qcc into card fld "con count" add 10000 to qcc end if put card fld "ans count" into rt put card fld "con count" into tt put card fld "cd count" into pt put card fld "dccount" into xd put card fld "dqcount" into zd put cd fld problem into pm domenu "new button" set the rect of card btn "new button" to 349,1,374,17 set the showName of card btn "new button" to false set the style of card btn "new button" to transparent set the icon of card btn "new button" to "Sml Next Arrow" set the loc of card btn "new button" to 382,41 set the script of card btn "new button" to "on mouseUp" &return&"put card fld ""e&"con count""e&"into x" &return&"put card fld ""e&"ans count""e&"into y" &return&"put card fld ""e&"cd count""e&"into z" &return&"put card fld ""e&"dccount""e&"into xd" &return&"put card fld ""e&"dqcount""e&"into zd" &return&"put card fld ""e&"problem""e&"into pm" &return&"go to card full"&qcc &return&"put x into card fld ""e&"con count""e &return&"put y into card fld ""e&"ans count""e &return&"put z into card fld ""e&"cd count""e &return&"put xd into card fld ""e&"dccount""e &return&"put zd into card fld ""e&"dqcount""e &return&"put pm into card fld ""e&"problem""e &return&"end mouseUp" if zxx = "2" then set the name of card button "new button" to "butques"&qcc else set the name of card button "new button" to "butcon"&qcc end if if zxx = "2" then put "ques"&qcc into card fld no7fld else put "con"&qcc into card fld no7fld end if go to card fulltoo domenu "copy card" domenu "paste card" set the name of this card to "full"&qcc put rt into card fld "ans count" put tt into card fld "con count" put pt into card fld "cd count" put xd into card fld "dccount" put zd into card fld "dqcount" put pm into cd fld "problem" domenu "new button" set the rect of card btn "new button" to 349,1,374,17 set the showName of card btn "new button" to false set the style of card btn "new button" to transparent set the icon of card btn "new button" to "Sml Prev Arrow" set the loc of card btn "new button" to 17,176 set the script of card btn "new button" to "on mouseUp" &return&"put card fld ""e&"con count""e&"into x" &return&"put card fld ""e&"ans count""e&"into y" &return&"put card fld ""e&"cd count""e&"into z" &return&"put card fld ""e&"dccount""e&"into xd" &return&"put card fld ""e&"dqcount""e&"into zd" &return&"put card fld ""e&"problem""e&"into pm" &return&"go to card "&cdname &return&"put x into card fld ""e&"con count""e &return&"put y into card fld ""e&"ans count""e &return&"put z into card fld ""e&"cd count""e &return&"put xd into card fld ""e&"dccount""e &return&"put zd into card fld ""e&"dqcount""e &return&"put pm into card fld ""e&"problem""e &return&"end mouseUp" set the name of card button "new button" to "bac"&qcc put the short name of this card into cdname if zxx is "2" then put the script of card fld "finished" into p put qcc into card fld ques1 put "Question" into card fld label1 go to card "ques"&qc set the script of card button x to "on mouseUp" &return&"go to card ques"&qcc &return&"end mouseUp" --domenu "new background" --set the name of this background to "questions" domenu "new card" choose text tool set textAlign to left set textSize to 24 set textStyle to bold, underline click at 10,44 type "Question:" choose button tool domenu "new button" set name of card button "new button" to "finished" set rect of card button "finished" to 229,330,303,342 set script of card button "finished" to p choose browse tool set the name of this card to "ques"&qcc domenu "new field" set the name of card fld "" to "funny" set the textAlign of card fld "funny" to aligntype set the style of card fld funny to scrolling answer "Type your question in this field" with "OK" answer "Click the finished button when done" with "OK" choose browse tool click at 246,131 else put the script of card fld "conclusion" into zz put "Conclusion" into card fld "label1" put qccsaved into card fld ques1 go to card "ques"&qc set the script of card button x to "on mouseUp" &return&"go to card con"&qcc &return&"end mouseUp" --domenu "new background" --set the name of this background to "questions" domenu "new card" choose text tool set textAlign to left set textSize to 24 set textStyle to bold, underline click at 10,44 type "Conclusion:" choose button tool domenu "new button" set name of card button "new button" to "finished" set rect of card button "finished" to 229,330,303,342 set script of card button "finished" to zz choose browse tool set the name of this card to "con"&qcc domenu "new field" set the name of card fld "" to "funny" set the textAlign of card fld "funny" to aligntype set the style of card fld funny to scrolling answer "Type your conclusion in this field" with "OK" answer "Click the finished button when done" with "OK" choose browse tool click at 246,131 end if end if set lockscreen to false end mouseUp -- part 9 (field) -- low flags: 01 -- high flags: 0002 -- rect: left=290 top=93 right=105 bottom=344 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: yes6 ----- HyperTalk script ----- on mouseUp global qc, fldloc, cdname, aligntype, gocon, goconvar set lockscreen to true put card fld "yes6" into x if x is empty then beep 1 answer "There is no answer here to work with" exit mouseUp end if put card fld "yes6fld" into e if e ≠ empty then answer "There is already a path for this question" with "OK" exit mouseUp end if answer "Work on this answer of this question" with "CANCEL" or "OK" if it is "CANCEL" then exit mouseUp else add 1 to card fld "cd count" put the short name of me into fldloc put the short name of this card into cdname put card fld ques6 into qc put the number of card buttons into cb answer "Is this a 1.Conclusion 2.Question?" with "1" or "2" put it into zxx if zxx = 2 then if cd fld "dqcount" = 0 then put card fld "ans count" into qcc add 1 to qcc put qcc into card fld "ans count" else put item 1 of card fld dqcount into qcc if the number of items in card fld "dqcount" = 1 then put 0 into card fld "dqcount" else delete item 1 of card fld "dqcount" end if --add 1 to qcc put qcc into card fld "ans count" end if end if if zxx = 1 then answer "Is this conclusion going to a question" with "Yes" or "No" put it into gocon put empty into goconvar if gocon = "Yes" then ask "Please enter the question number" if it is empty then exit mouseUp end if put it into goconvar repeat with x = 1 to the number of items in card fld dqcount if goconvar = item x of card fld dqcount then answer "You deleted question "&goconvar exit mouseUp end if end repeat if goconvar > card fld "ans count" then answer "There is no question "&goconvar subtract 1 from card fld "cd count" exit mouseUp end if end if if cd fld "dccount" = 0 then put card fld "con count" into qcc put card fld "con count" into qccsaved add 1 to qcc add 1 to qccsaved else put item 1 of card fld dccount into qcc put item 1 of card fld dccount into qccsaved if the number of items in cd fld dccount = 1 then put 0 into cd fld dccount else delete item 1 of cd fld dccount end if end if put qcc into card fld "con count" add 10000 to qcc end if put card fld "ans count" into rt put card fld "con count" into tt put card fld "cd count" into pt put card fld "dccount" into xd put card fld "dqcount" into zd put cd fld problem into pm domenu "new button" set the rect of card btn "new button" to 349,1,374,17 set the showName of card btn "new button" to false set the style of card btn "new button" to transparent set the icon of card btn "new button" to "Sml Next Arrow" set the loc of card btn "new button" to 382,98 set the script of card btn "new button" to "on mouseUp" &return&"put card fld ""e&"con count""e&"into x" &return&"put card fld ""e&"ans count""e&"into y" &return&"put card fld ""e&"cd count""e&"into z" &return&"put card fld ""e&"dccount""e&"into xd" &return&"put card fld ""e&"dqcount""e&"into zd" &return&"put card fld ""e&"problem""e&"into pm" &return&"go to card full"&qcc &return&"put x into card fld ""e&"con count""e &return&"put y into card fld ""e&"ans count""e &return&"put z into card fld ""e&"cd count""e &return&"put xd into card fld ""e&"dccount""e &return&"put zd into card fld ""e&"dqcount""e &return&"put pm into card fld ""e&"problem""e &return&"end mouseUp" if zxx = "2" then set the name of card button "new button" to "butques"&qcc else set the name of card button "new button" to "butcon"&qcc end if if zxx = "2" then put "ques"&qcc into card fld yes6fld else put "con"&qcc into card fld yes6fld end if go to card fulltoo domenu "copy card" domenu "paste card" set the name of this card to "full"&qcc put rt into card fld "ans count" put tt into card fld "con count" put pt into card fld "cd count" put xd into card fld "dccount" put zd into card fld "dqcount" put pm into cd fld "problem" domenu "new button" set the rect of card btn "new button" to 349,1,374,17 set the showName of card btn "new button" to false set the style of card btn "new button" to transparent set the icon of card btn "new button" to "Sml Prev Arrow" set the loc of card btn "new button" to 17,176 set the script of card btn "new button" to "on mouseUp" &return&"put card fld ""e&"con count""e&"into x" &return&"put card fld ""e&"ans count""e&"into y" &return&"put card fld ""e&"cd count""e&"into z" &return&"put card fld ""e&"dccount""e&"into xd" &return&"put card fld ""e&"dqcount""e&"into zd" &return&"put card fld ""e&"problem""e&"into pm" &return&"go to card "&cdname &return&"put x into card fld ""e&"con count""e &return&"put y into card fld ""e&"ans count""e &return&"put z into card fld ""e&"cd count""e &return&"put xd into card fld ""e&"dccount""e &return&"put zd into card fld ""e&"dqcount""e &return&"put pm into card fld ""e&"problem""e &return&"end mouseUp" set the name of card button "new button" to "bac"&qcc put the short name of this card into cdname if zxx is "2" then put the script of card fld "finished" into p put qcc into card fld ques1 put "Question" into card fld label1 go to card "ques"&qc set the script of card button x to "on mouseUp" &return&"go to card ques"&qcc &return&"end mouseUp" --domenu "new background" --set the name of this background to "questions" domenu "new card" choose text tool set textAlign to left set textSize to 24 set textStyle to bold, underline click at 10,44 type "Question:" choose button tool domenu "new button" set name of card button "new button" to "finished" set rect of card button "finished" to 229,330,303,342 set script of card button "finished" to p choose browse tool set the name of this card to "ques"&qcc domenu "new field" set the name of card fld "" to "funny" set the textAlign of card fld "funny" to aligntype set the style of card fld funny to scrolling answer "Type your question in this field" with "OK" answer "Click the finished button when done" with "OK" choose browse tool click at 246,131 else put the script of card fld "conclusion" into zz put "Conclusion" into card fld "label1" put qccsaved into card fld ques1 go to card "ques"&qc set the script of card button x to "on mouseUp" &return&"go to card con"&qcc &return&"end mouseUp" --domenu "new background" --set the name of this background to "questions" domenu "new card" choose text tool set textAlign to left set textSize to 24 set textStyle to bold, underline click at 10,44 type "Conclusion:" choose button tool domenu "new button" set name of card button "new button" to "finished" set rect of card button "finished" to 229,330,303,342 set script of card button "finished" to zz choose browse tool set the name of this card to "con"&qcc domenu "new field" set the name of card fld "" to "funny" set the textAlign of card fld "funny" to aligntype set the style of card fld funny to scrolling answer "Type your conclusion in this field" with "OK" answer "Click the finished button when done" with "OK" choose browse tool click at 246,131 end if end if set lockscreen to false end mouseUp -- part 10 (field) -- low flags: 01 -- high flags: 0002 -- rect: left=291 top=123 right=135 bottom=344 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: no6 ----- HyperTalk script ----- on mouseUp global qc, fldloc, cdname, aligntype, gocon, goconvar set lockscreen to true put card fld "no6" into x if x is empty then beep 1 answer "There is no answer here to work with" exit mouseUp end if put card fld "no6fld" into e if e ≠ empty then answer "There is already a path for this question" with "OK" exit mouseUp end if answer "Work on this answer of this question" with "CANCEL" or "OK" if it is "CANCEL" then exit mouseUp else add 1 to card fld "cd count" put the short name of me into fldloc put the short name of this card into cdname put card fld ques6 into qc put the number of card buttons into cb answer "Is this a 1.Conclusion 2.Question?" with "1" or "2" put it into zxx if zxx = 2 then if cd fld "dqcount" = 0 then put card fld "ans count" into qcc add 1 to qcc put qcc into card fld "ans count" else put item 1 of card fld dqcount into qcc if the number of items in card fld "dqcount" = 1 then put 0 into card fld "dqcount" else delete item 1 of card fld "dqcount" end if --add 1 to qcc put qcc into card fld "ans count" end if end if if zxx = 1 then answer "Is this conclusion going to a question" with "Yes" or "No" put it into gocon put empty into goconvar if gocon = "Yes" then ask "Please enter the question number" if it is empty then exit mouseUp end if put it into goconvar repeat with x = 1 to the number of items in card fld dqcount if goconvar = item x of card fld dqcount then answer "You deleted question "&goconvar exit mouseUp end if end repeat if goconvar > card fld "ans count" then answer "There is no question "&goconvar subtract 1 from card fld "cd count" exit mouseUp end if end if if cd fld "dccount" = 0 then put card fld "con count" into qcc put card fld "con count" into qccsaved add 1 to qcc add 1 to qccsaved else put item 1 of card fld dccount into qcc put item 1 of card fld dccount into qccsaved if the number of items in cd fld dccount = 1 then put 0 into cd fld dccount else delete item 1 of cd fld dccount end if end if put qcc into card fld "con count" add 10000 to qcc end if put card fld "ans count" into rt put card fld "con count" into tt put card fld "cd count" into pt put card fld "dccount" into xd put card fld "dqcount" into zd put cd fld problem into pm domenu "new button" set the rect of card btn "new button" to 349,1,374,17 set the showName of card btn "new button" to false set the style of card btn "new button" to transparent set the icon of card btn "new button" to "Sml Next Arrow" set the loc of card btn "new button" to 382,131 set the script of card btn "new button" to "on mouseUp" &return&"put card fld ""e&"con count""e&"into x" &return&"put card fld ""e&"ans count""e&"into y" &return&"put card fld ""e&"cd count""e&"into z" &return&"put card fld ""e&"dccount""e&"into xd" &return&"put card fld ""e&"dqcount""e&"into zd" &return&"put card fld ""e&"problem""e&"into pm" &return&"go to card full"&qcc &return&"put x into card fld ""e&"con count""e &return&"put y into card fld ""e&"ans count""e &return&"put z into card fld ""e&"cd count""e &return&"put xd into card fld ""e&"dccount""e &return&"put zd into card fld ""e&"dqcount""e &return&"put pm into card fld ""e&"problem""e &return&"end mouseUp" if zxx = "2" then set the name of card button "new button" to "butques"&qcc else set the name of card button "new button" to "butcon"&qcc end if if zxx = "2" then put "ques"&qcc into card fld no6fld else put "con"&qcc into card fld no6fld end if go to card fulltoo domenu "copy card" domenu "paste card" set the name of this card to "full"&qcc put rt into card fld "ans count" put tt into card fld "con count" put pt into card fld "cd count" put xd into card fld "dccount" put zd into card fld "dqcount" put pm into cd fld "problem" domenu "new button" set the rect of card btn "new button" to 349,1,374,17 set the showName of card btn "new button" to false set the style of card btn "new button" to transparent set the icon of card btn "new button" to "Sml Prev Arrow" set the loc of card btn "new button" to 17,176 set the script of card btn "new button" to "on mouseUp" &return&"put card fld ""e&"con count""e&"into x" &return&"put card fld ""e&"ans count""e&"into y" &return&"put card fld ""e&"cd count""e&"into z" &return&"put card fld ""e&"dccount""e&"into xd" &return&"put card fld ""e&"dqcount""e&"into zd" &return&"put card fld ""e&"problem""e&"into pm" &return&"go to card "&cdname &return&"put x into card fld ""e&"con count""e &return&"put y into card fld ""e&"ans count""e &return&"put z into card fld ""e&"cd count""e &return&"put xd into card fld ""e&"dccount""e &return&"put zd into card fld ""e&"dqcount""e &return&"put pm into card fld ""e&"problem""e &return&"end mouseUp" set the name of card button "new button" to "bac"&qcc put the short name of this card into cdname if zxx is "2" then put the script of card fld "finished" into p put qcc into card fld ques1 put "Question" into card fld label1 go to card "ques"&qc set the script of card button x to "on mouseUp" &return&"go to card ques"&qcc &return&"end mouseUp" --domenu "new background" --set the name of this background to "questions" domenu "new card" choose text tool set textAlign to left set textSize to 24 set textStyle to bold, underline click at 10,44 type "Question:" choose button tool domenu "new button" set name of card button "new button" to "finished" set rect of card button "finished" to 229,330,303,342 set script of card button "finished" to p choose browse tool set the name of this card to "ques"&qcc domenu "new field" set the name of card fld "" to "funny" set the textAlign of card fld "funny" to aligntype set the style of card fld funny to scrolling answer "Type your question in this field" with "OK" answer "Click the finished button when done" with "OK" choose browse tool click at 246,131 else put the script of card fld "conclusion" into zz put "Conclusion" into card fld "label1" put qccsaved into card fld ques1 go to card "ques"&qc set the script of card button x to "on mouseUp" &return&"go to card con"&qcc &return&"end mouseUp" --domenu "new background" --set the name of this background to "questions" domenu "new card" choose text tool set textAlign to left set textSize to 24 set textStyle to bold, underline click at 10,44 type "Conclusion:" choose button tool domenu "new button" set name of card button "new button" to "finished" set rect of card button "finished" to 229,330,303,342 set script of card button "finished" to zz choose browse tool set the name of this card to "con"&qcc domenu "new field" set the name of card fld "" to "funny" set the textAlign of card fld "funny" to aligntype set the style of card fld funny to scrolling answer "Type your conclusion in this field" with "OK" answer "Click the finished button when done" with "OK" choose browse tool click at 246,131 end if end if set lockscreen to false end mouseUp -- part 11 (field) -- low flags: 01 -- high flags: 0002 -- rect: left=290 top=173 right=185 bottom=346 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: yes5 ----- HyperTalk script ----- on mouseUp global qc, fldloc, cdname, aligntype, gocon, goconvar set lockscreen to true put card fld "yes5" into x if x is empty then beep 1 answer "There is no answer here to work with" exit mouseUp end if put card fld "yes5fld" into e if e ≠ empty then answer "There is already a path for this question" with "OK" exit mouseUp end if answer "Work on this answer of this question" with "CANCEL" or "OK" if it is "CANCEL" then exit mouseUp else add 1 to card fld "cd count" put the short name of me into fldloc put the short name of this card into cdname put card fld ques5 into qc put the number of card buttons into cb answer "Is this a 1.Conclusion 2.Question?" with "1" or "2" put it into zxx if zxx = 2 then if cd fld "dqcount" = 0 then put card fld "ans count" into qcc add 1 to qcc put qcc into card fld "ans count" else put item 1 of card fld dqcount into qcc if the number of items in card fld "dqcount" = 1 then put 0 into card fld "dqcount" else delete item 1 of card fld "dqcount" end if --add 1 to qcc put qcc into card fld "ans count" end if end if if zxx = 1 then answer "Is this conclusion going to a question" with "Yes" or "No" put it into gocon put empty into goconvar if gocon = "Yes" then ask "Please enter the question number" if it is empty then exit mouseUp end if put it into goconvar repeat with x = 1 to the number of items in card fld dqcount if goconvar = item x of card fld dqcount then answer "You deleted question "&goconvar exit mouseUp end if end repeat if goconvar > card fld "ans count" then answer "There is no question "&goconvar subtract 1 from card fld "cd count" exit mouseUp end if end if if cd fld "dccount" = 0 then put card fld "con count" into qcc put card fld "con count" into qccsaved add 1 to qcc add 1 to qccsaved else put item 1 of card fld dccount into qcc put item 1 of card fld dccount into qccsaved if the number of items in cd fld dccount = 1 then put 0 into cd fld dccount else delete item 1 of cd fld dccount end if end if put qcc into card fld "con count" add 10000 to qcc end if put card fld "ans count" into rt put card fld "con count" into tt put card fld "cd count" into pt put card fld "dccount" into xd put card fld "dqcount" into zd put cd fld problem into pm domenu "new button" set the rect of card btn "new button" to 349,1,374,17 set the showName of card btn "new button" to false set the style of card btn "new button" to transparent set the icon of card btn "new button" to "Sml Next Arrow" set the loc of card btn "new button" to 382,175 set the script of card btn "new button" to "on mouseUp" &return&"put card fld ""e&"con count""e&"into x" &return&"put card fld ""e&"ans count""e&"into y" &return&"put card fld ""e&"cd count""e&"into z" &return&"put card fld ""e&"dccount""e&"into xd" &return&"put card fld ""e&"dqcount""e&"into zd" &return&"put card fld ""e&"problem""e&"into pm" &return&"go to card full"&qcc &return&"put x into card fld ""e&"con count""e &return&"put y into card fld ""e&"ans count""e &return&"put z into card fld ""e&"cd count""e &return&"put xd into card fld ""e&"dccount""e &return&"put zd into card fld ""e&"dqcount""e &return&"put pm into card fld ""e&"problem""e &return&"end mouseUp" if zxx = "2" then set the name of card button "new button" to "butques"&qcc else set the name of card button "new button" to "butcon"&qcc end if subtract 1 from cb if zxx = "2" then put "ques"&qcc into card fld yes5fld else put "con"&qcc into card fld yes5fld end if go to card fulltoo domenu "copy card" domenu "paste card" set the name of this card to "full"&qcc put rt into card fld "ans count" put tt into card fld "con count" put pt into card fld "cd count" put xd into card fld "dccount" put zd into card fld "dqcount" put pm into cd fld "problem" domenu "new button" set the rect of card btn "new button" to 349,1,374,17 set the showName of card btn "new button" to false set the style of card btn "new button" to transparent set the icon of card btn "new button" to "Sml Prev Arrow" set the loc of card btn "new button" to 17,176 set the script of card btn "new button" to "on mouseUp" &return&"put card fld ""e&"con count""e&"into x" &return&"put card fld ""e&"ans count""e&"into y" &return&"put card fld ""e&"cd count""e&"into z" &return&"put card fld ""e&"dccount""e&"into xd" &return&"put card fld ""e&"dqcount""e&"into zd" &return&"put card fld ""e&"problem""e&"into pm" &return&"go to card "&cdname &return&"put x into card fld ""e&"con count""e &return&"put y into card fld ""e&"ans count""e &return&"put z into card fld ""e&"cd count""e &return&"put xd into card fld ""e&"dccount""e &return&"put zd into card fld ""e&"dqcount""e &return&"put pm into card fld ""e&"problem""e &return&"end mouseUp" set the name of card button "new button" to "bac"&qcc put the short name of this card into cdname if zxx is "2" then put the script of card fld "finished" into p put "Question" into card fld "label1" put qcc into card fld ques1 go to card "ques"&qc set the script of card button x to "on mouseUp" &return&"go to card ques"&qcc &return&"end mouseUp" --domenu "new background" --set the name of this background to "questions" domenu "new card" choose text tool set textAlign to left set textSize to 24 set textStyle to bold, underline click at 10,44 type "Question:" choose button tool domenu "new button" set name of card button "new button" to "finished" set rect of card button "finished" to 229,330,303,342 set script of card button "finished" to p choose browse tool set the name of this card to "ques"&qcc domenu "new field" set the name of card fld "" to "funny" set the textAlign of card fld "funny" to aligntype set the style of card fld funny to scrolling answer "Type your question in this field" with "OK" answer "Click the finished button when done" with "OK" choose browse tool click at 246,131 else put the script of card fld "conclusion" into zz put "Conclusion" into card fld "label1" put qccsaved into card fld ques1 go to card "ques"&qc set the script of card button x to "on mouseUp" &return&"go to card con"&qcc &return&"end mouseUp" --domenu "new background" --set the name of this background to "questions" domenu "new card" choose text tool set textAlign to left set textSize to 24 set textStyle to bold, underline click at 10,44 type "Conclusion:" choose button tool domenu "new button" set name of card button "new button" to "finished" set rect of card button "finished" to 229,330,303,342 set script of card button "finished" to zz choose browse tool set the name of this card to "con"&qcc domenu "new field" set the name of card fld "" to "funny" set the textAlign of card fld "funny" to aligntype set the style of card fld funny to scrolling answer "Type your conclusion in this field" with "OK" answer "Click the finished button when done" with "OK" choose browse tool click at 246,131 end if end if set lockscreen to false end mouseUp -- part 12 (field) -- low flags: 01 -- high flags: 0002 -- rect: left=290 top=201 right=213 bottom=346 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: no5 ----- HyperTalk script ----- on mouseUp global qc, fldloc, cdname, aligntype, gocon, goconvar set lockscreen to true put card fld "no5" into x if x is empty then beep 1 answer "There is no answer here to work with" exit mouseUp end if put card fld "no5fld" into e if e ≠ empty then answer "There is already a path for this question" with "OK" exit mouseUp end if answer "Work on this answer of this question" with "CANCEL" or "OK" if it is "CANCEL" then exit mouseUp else add 1 to card fld "cd count" put the short name of me into fldloc put the short name of this card into cdname put card fld ques5 into qc put the number of card buttons into cb answer "Is this a 1.Conclusion 2.Question?" with "1" or "2" put it into zxx if zxx = 2 then if cd fld "dqcount" = 0 then put card fld "ans count" into qcc add 1 to qcc put qcc into card fld "ans count" else put item 1 of card fld dqcount into qcc if the number of items in card fld "dqcount" = 1 then put 0 into card fld "dqcount" else delete item 1 of card fld "dqcount" end if --add 1 to qcc put qcc into card fld "ans count" end if end if if zxx = 1 then answer "Is this conclusion going to a question" with "Yes" or "No" put it into gocon put empty into goconvar if gocon = "Yes" then ask "Please enter the question number" if it is empty then exit mouseUp end if put it into goconvar repeat with x = 1 to the number of items in card fld dqcount if goconvar = item x of card fld dqcount then answer "You deleted question "&goconvar exit mouseUp end if end repeat if goconvar > card fld "ans count" then answer "There is no question "&goconvar subtract 1 from card fld "cd count" exit mouseUp end if end if if cd fld "dccount" = 0 then put card fld "con count" into qcc put card fld "con count" into qccsaved add 1 to qcc add 1 to qccsaved else put item 1 of card fld dccount into qcc put item 1 of card fld dccount into qccsaved if the number of items in cd fld dccount = 1 then put 0 into cd fld dccount else delete item 1 of cd fld dccount end if end if put qcc into card fld "con count" add 10000 to qcc end if put card fld "ans count" into rt put card fld "con count" into tt put card fld "cd count" into pt put card fld "dccount" into xd put card fld "dqcount" into zd put cd fld problem into pm domenu "new button" set the rect of card btn "new button" to 349,1,374,17 set the showName of card btn "new button" to false set the style of card btn "new button" to transparent set the icon of card btn "new button" to "Sml Next Arrow" set the loc of card btn "new button" to 382,210 set the script of card btn "new button" to "on mouseUp" &return&"put card fld ""e&"con count""e&"into x" &return&"put card fld ""e&"ans count""e&"into y" &return&"put card fld ""e&"cd count""e&"into z" &return&"put card fld ""e&"dccount""e&"into xd" &return&"put card fld ""e&"dqcount""e&"into zd" &return&"put card fld ""e&"problem""e&"into pm" &return&"go to card full"&qcc &return&"put x into card fld ""e&"con count""e &return&"put y into card fld ""e&"ans count""e &return&"put z into card fld ""e&"cd count""e &return&"put xd into card fld ""e&"dccount""e &return&"put zd into card fld ""e&"dqcount""e &return&"put pm into card fld ""e&"problem""e &return&"end mouseUp" if zxx = "2" then set the name of card button "new button" to "butques"&qcc else set the name of card button "new button" to "butcon"&qcc end if if zxx = "2" then put "ques"&qcc into card fld no5fld else put "con"&qcc into card fld no5fld end if go to card fulltoo domenu "copy card" domenu "paste card" set the name of this card to "full"&qcc put rt into card fld "ans count" put tt into card fld "con count" put pt into card fld "cd count" put xd into card fld "dccount" put zd into card fld "dqcount" put pm into cd fld "problem" domenu "new button" set the rect of card btn "new button" to 349,1,374,17 set the showName of card btn "new button" to false set the style of card btn "new button" to transparent set the icon of card btn "new button" to "Sml Prev Arrow" set the loc of card btn "new button" to 17,176 set the script of card btn "new button" to "on mouseUp" &return&"put card fld ""e&"con count""e&"into x" &return&"put card fld ""e&"ans count""e&"into y" &return&"put card fld ""e&"cd count""e&"into z" &return&"put card fld ""e&"dccount""e&"into xd" &return&"put card fld ""e&"dqcount""e&"into zd" &return&"put card fld ""e&"problem""e&"into pm" &return&"go to card "&cdname &return&"put x into card fld ""e&"con count""e &return&"put y into card fld ""e&"ans count""e &return&"put z into card fld ""e&"cd count""e &return&"put xd into card fld ""e&"dccount""e &return&"put zd into card fld ""e&"dqcount""e &return&"put pm into card fld ""e&"problem""e &return&"end mouseUp" set the name of card button "new button" to "bac"&qcc put the short name of this card into cdname if zxx is "2" then put the script of card fld "finished" into p put qcc into card fld ques1 put "Question" into card fld label1 go to card "ques"&qc set the script of card button x to "on mouseUp" &return&"go to card ques"&qcc &return&"end mouseUp" --domenu "new background" --set the name of this background to "questions" domenu "new card" choose text tool set textAlign to left set textSize to 24 set textStyle to bold, underline click at 10,44 type "Question:" choose button tool domenu "new button" set name of card button "new button" to "finished" set rect of card button "finished" to 229,330,303,342 set script of card button "finished" to p choose browse tool set the name of this card to "ques"&qcc domenu "new field" set the name of card fld "" to "funny" set the textAlign of card fld "funny" to aligntype set the style of card fld funny to scrolling answer "Type your question in this field" with "OK" answer "Click the finished button when done" with "OK" choose browse tool click at 246,131 else put the script of card fld "conclusion" into zz put "Conclusion" into card fld "label1" put qccsaved into card fld ques1 go to card "ques"&qc set the script of card button x to "on mouseUp" &return&"go to card con"&qcc &return&"end mouseUp" --domenu "new background" --set the name of this background to "questions" domenu "new card" choose text tool set textAlign to left set textSize to 24 set textStyle to bold, underline click at 10,44 type "Conclusion:" choose button tool domenu "new button" set name of card button "new button" to "finished" set rect of card button "finished" to 229,330,303,342 set script of card button "finished" to zz choose browse tool set the name of this card to "con"&qcc domenu "new field" set the name of card fld "" to "funny" set the textAlign of card fld "funny" to aligntype set the style of card fld funny to scrolling answer "Type your conclusion in this field" with "OK" answer "Click the finished button when done" with "OK" choose browse tool click at 246,131 end if end if set lockscreen to false end mouseUp -- part 13 (field) -- low flags: 01 -- high flags: 0002 -- rect: left=291 top=260 right=272 bottom=347 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: yes4 ----- HyperTalk script ----- on mouseUp global qc, fldloc, cdname, aligntype, gocon, goconvar set lockscreen to true put card fld "yes4" into x if x is empty then beep 1 answer "There is no answer here to work with" exit mouseUp end if put card fld "yes4fld" into e if e ≠ empty then answer "There is already a path for this question" with "OK" exit mouseUp end if answer "Work on this answer of this question" with "CANCEL" or "OK" if it is "CANCEL" then exit mouseUp else add 1 to card fld "cd count" put the short name of me into fldloc put the short name of this card into cdname put card fld ques4 into qc put the number of card buttons into cb answer "Is this a 1.Conclusion 2.Question?" with "1" or "2" put it into zxx if zxx = 2 then if cd fld "dqcount" = 0 then put card fld "ans count" into qcc add 1 to qcc put qcc into card fld "ans count" else put item 1 of card fld dqcount into qcc if the number of items in card fld "dqcount" = 1 then put 0 into card fld "dqcount" else delete item 1 of card fld "dqcount" end if --add 1 to qcc put qcc into card fld "ans count" end if end if if zxx = 1 then answer "Is this conclusion going to a question" with "Yes" or "No" put it into gocon put empty into goconvar if gocon = "Yes" then ask "Please enter the question number" if it is empty then exit mouseUp end if put it into goconvar repeat with x = 1 to the number of items in card fld dqcount if goconvar = item x of card fld dqcount then answer "You deleted question "&goconvar exit mouseUp end if end repeat if goconvar > card fld "ans count" then answer "There is no question "&goconvar subtract 1 from card fld "cd count" exit mouseUp end if end if if cd fld "dccount" = 0 then put card fld "con count" into qcc put card fld "con count" into qccsaved add 1 to qcc add 1 to qccsaved else put item 1 of card fld dccount into qcc put item 1 of card fld dccount into qccsaved if the number of items in cd fld dccount = 1 then put 0 into cd fld dccount else delete item 1 of cd fld dccount end if end if put qcc into card fld "con count" add 10000 to qcc end if put card fld "ans count" into rt put card fld "con count" into tt put card fld "cd count" into pt put card fld "dccount" into xd put card fld "dqcount" into zd put cd fld problem into pm domenu "new button" set the rect of card btn "new button" to 349,1,374,17 set the showName of card btn "new button" to false set the style of card btn "new button" to transparent set the icon of card btn "new button" to "Sml Next Arrow" set the loc of card btn "new button" to 382,266 set the script of card btn "new button" to "on mouseUp" &return&"put card fld ""e&"con count""e&"into x" &return&"put card fld ""e&"ans count""e&"into y" &return&"put card fld ""e&"cd count""e&"into z" &return&"put card fld ""e&"dccount""e&"into xd" &return&"put card fld ""e&"dqcount""e&"into zd" &return&"put card fld ""e&"problem""e&"into pm" &return&"go to card full"&qcc &return&"put x into card fld ""e&"con count""e &return&"put y into card fld ""e&"ans count""e &return&"put z into card fld ""e&"cd count""e &return&"put xd into card fld ""e&"dccount""e &return&"put zd into card fld ""e&"dqcount""e &return&"put pm into card fld ""e&"problem""e &return&"end mouseUp" if zxx = "2" then set the name of card button "new button" to "butques"&qcc else set the name of card button "new button" to "butcon"&qcc end if if zxx = "2" then put "ques"&qcc into card fld yes4fld else put "con"&qcc into card fld yes4fld end if go to card fulltoo domenu "copy card" domenu "paste card" set the name of this card to "full"&qcc put rt into card fld "ans count" put tt into card fld "con count" put pt into card fld "cd count" put xd into card fld "dccount" put zd into card fld "dqcount" put pm into cd fld "problem" domenu "new button" set the rect of card btn "new button" to 349,1,374,17 set the showName of card btn "new button" to false set the style of card btn "new button" to transparent set the icon of card btn "new button" to "Sml Prev Arrow" set the loc of card btn "new button" to 17,176 set the script of card btn "new button" to "on mouseUp" &return&"put card fld ""e&"con count""e&"into x" &return&"put card fld ""e&"ans count""e&"into y" &return&"put card fld ""e&"cd count""e&"into z" &return&"put card fld ""e&"dccount""e&"into xd" &return&"put card fld ""e&"dqcount""e&"into zd" &return&"put card fld ""e&"problem""e&"into pm" &return&"go to card "&cdname &return&"put x into card fld ""e&"con count""e &return&"put y into card fld ""e&"ans count""e &return&"put z into card fld ""e&"cd count""e &return&"put xd into card fld ""e&"dccount""e &return&"put zd into card fld ""e&"dqcount""e &return&"put pm into card fld ""e&"problem""e &return&"end mouseUp" set the name of card button "new button" to "bac"&qcc put the short name of this card into cdname if zxx is "2" then put the script of card fld "finished" into p put qcc into card fld ques1 put "Question" into card fld label1 go to card "ques"&qc set the script of card button x to "on mouseUp" &return&"go to card ques"&qcc &return&"end mouseUp" --domenu "new background" --set the name of this background to "questions" domenu "new card" choose text tool set textAlign to left set textSize to 24 set textStyle to bold, underline click at 10,44 type "Question:" choose button tool domenu "new button" set name of card button "new button" to "finished" set rect of card button "finished" to 229,330,303,342 set script of card button "finished" to p choose browse tool set the name of this card to "ques"&qcc domenu "new field" set the name of card fld "" to "funny" set the textAlign of card fld "funny" to aligntype set the style of card fld funny to scrolling answer "Type your question in this field" with "OK" answer "Click the finished button when done" with "OK" choose browse tool click at 246,131 else put the script of card fld "conclusion" into zz put "Conclusion" into card fld "label1" put qccsaved into card fld ques1 go to card "ques"&qc set the script of card button x to "on mouseUp" &return&"go to card con"&qcc &return&"end mouseUp" --domenu "new background" --set the name of this background to "questions" domenu "new card" choose text tool set textAlign to left set textSize to 24 set textStyle to bold, underline click at 10,44 type "Conclusion:" choose button tool domenu "new button" set name of card button "new button" to "finished" set rect of card button "finished" to 229,330,303,342 set script of card button "finished" to zz choose browse tool set the name of this card to "con"&qcc domenu "new field" set the name of card fld "" to "funny" set the textAlign of card fld "funny" to aligntype set the style of card fld funny to scrolling answer "Type your conclusion in this field" with "OK" answer "Click the finished button when done" with "OK" choose browse tool click at 246,131 end if end if set lockscreen to false end mouseUp -- part 14 (field) -- low flags: 01 -- high flags: 0002 -- rect: left=291 top=291 right=303 bottom=347 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: no4 ----- HyperTalk script ----- on mouseUp global qc, fldloc, cdname, aligntype, gocon, goconvar set lockscreen to true put card fld "no4" into x if x is empty then beep 1 answer "There is no answer here to work with" exit mouseUp end if put card fld "no4fld" into e if e ≠ empty then answer "There is already a path for this question" with "OK" exit mouseUp end if answer "Work on this answer of this question" with "CANCEL" or "OK" if it is "CANCEL" then exit mouseUp else add 1 to card fld "cd count" put the short name of me into fldloc put the short name of this card into cdname put card fld ques4 into qc put the number of card buttons into cb answer "Is this a 1.Conclusion 2.Question?" with "1" or "2" put it into zxx if zxx = 2 then if cd fld "dqcount" = 0 then put card fld "ans count" into qcc add 1 to qcc put qcc into card fld "ans count" else put item 1 of card fld dqcount into qcc if the number of items in card fld "dqcount" = 1 then put 0 into card fld "dqcount" else delete item 1 of card fld "dqcount" end if --add 1 to qcc put qcc into card fld "ans count" end if end if if zxx = 1 then answer "Is this conclusion going to a question" with "Yes" or "No" put it into gocon put empty into goconvar if gocon = "Yes" then ask "Please enter the question number" if it is empty then exit mouseUp end if put it into goconvar repeat with x = 1 to the number of items in card fld dqcount if goconvar = item x of card fld dqcount then answer "You deleted question "&goconvar exit mouseUp end if end repeat if goconvar > card fld "ans count" then answer "There is no question "&goconvar subtract 1 from card fld "cd count" exit mouseUp end if end if if cd fld "dccount" = 0 then put card fld "con count" into qcc put card fld "con count" into qccsaved add 1 to qcc add 1 to qccsaved else put item 1 of card fld dccount into qcc put item 1 of card fld dccount into qccsaved if the number of items in cd fld dccount = 1 then put 0 into cd fld dccount else delete item 1 of cd fld dccount end if end if put qcc into card fld "con count" add 10000 to qcc end if put card fld "ans count" into rt put card fld "con count" into tt put card fld "cd count" into pt put card fld "dccount" into xd put card fld "dqcount" into zd put cd fld problem into pm domenu "new button" set the rect of card btn "new button" to 349,1,374,17 set the showName of card btn "new button" to false set the style of card btn "new button" to transparent set the icon of card btn "new button" to "Sml Next Arrow" set the loc of card btn "new button" to 382,297 set the script of card btn "new button" to "on mouseUp" &return&"put card fld ""e&"con count""e&"into x" &return&"put card fld ""e&"ans count""e&"into y" &return&"put card fld ""e&"cd count""e&"into z" &return&"put card fld ""e&"dccount""e&"into xd" &return&"put card fld ""e&"dqcount""e&"into zd" &return&"put card fld ""e&"problem""e&"into pm" &return&"go to card full"&qcc &return&"put x into card fld ""e&"con count""e &return&"put y into card fld ""e&"ans count""e &return&"put z into card fld ""e&"cd count""e &return&"put xd into card fld ""e&"dccount""e &return&"put zd into card fld ""e&"dqcount""e &return&"put pm into card fld ""e&"problem""e &return&"end mouseUp" if zxx = "2" then set the name of card button "new button" to "butques"&qcc else set the name of card button "new button" to "butcon"&qcc end if if zxx = "2" then put "ques"&qcc into card fld no4fld else put "con"&qcc into card fld no4fld end if go to card fulltoo domenu "copy card" domenu "paste card" set the name of this card to "full"&qcc put rt into card fld "ans count" put tt into card fld "con count" put pt into card fld "cd count" put xd into card fld "dccount" put zd into card fld "dqcount" put pm into cd fld "problem" domenu "new button" set the rect of card btn "new button" to 349,1,374,17 set the showName of card btn "new button" to false set the style of card btn "new button" to transparent set the icon of card btn "new button" to "Sml Prev Arrow" set the loc of card btn "new button" to 17,176 set the script of card btn "new button" to "on mouseUp" &return&"put card fld ""e&"con count""e&"into x" &return&"put card fld ""e&"ans count""e&"into y" &return&"put card fld ""e&"cd count""e&"into z" &return&"put card fld ""e&"dccount""e&"into xd" &return&"put card fld ""e&"dqcount""e&"into zd" &return&"put card fld ""e&"problem""e&"into pm" &return&"go to card "&cdname &return&"put x into card fld ""e&"con count""e &return&"put y into card fld ""e&"ans count""e &return&"put z into card fld ""e&"cd count""e &return&"put xd into card fld ""e&"dccount""e &return&"put zd into card fld ""e&"dqcount""e &return&"put pm into card fld ""e&"problem""e &return&"end mouseUp" set the name of card button "new button" to "bac"&qcc put the short name of this card into cdname if zxx is "2" then put the script of card fld "finished" into p put qcc into card fld ques1 put "Question" into card fld label1 go to card "ques"&qc set the script of card button x to "on mouseUp" &return&"go to card ques"&qcc &return&"end mouseUp" --domenu "new background" --set the name of this background to "questions" domenu "new card" choose text tool set textAlign to left set textSize to 24 set textStyle to bold, underline click at 10,44 type "Question:" choose button tool domenu "new button" set name of card button "new button" to "finished" set rect of card button "finished" to 229,330,303,342 set script of card button "finished" to p choose browse tool set the name of this card to "ques"&qcc domenu "new field" set the name of card fld "" to "funny" set the textAlign of card fld "funny" to aligntype set the style of card fld funny to scrolling answer "Type your question in this field" with "OK" answer "Click the finished button when done" with "OK" choose browse tool click at 246,131 else put the script of card fld "conclusion" into zz put "Conclusion" into card fld "label1" put qccsaved into card fld ques1 go to card "ques"&qc set the script of card button x to "on mouseUp" &return&"go to card con"&qcc &return&"end mouseUp" --domenu "new background" --set the name of this background to "questions" domenu "new card" choose text tool set textAlign to left set textSize to 24 set textStyle to bold, underline click at 10,44 type "Conclusion:" choose button tool domenu "new button" set name of card button "new button" to "finished" set rect of card button "finished" to 229,330,303,342 set script of card button "finished" to zz choose browse tool set the name of this card to "con"&qcc domenu "new field" set the name of card fld "" to "funny" set the textAlign of card fld "funny" to aligntype set the style of card fld funny to scrolling answer "Type your conclusion in this field" with "OK" answer "Click the finished button when done" with "OK" choose browse tool click at 246,131 end if end if set lockscreen to false end mouseUp -- part 39 (field) -- low flags: 01 -- high flags: 0000 -- rect: left=11 top=138 right=152 bottom=61 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 3 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: ques1 -- part 40 (field) -- low flags: 01 -- high flags: 0000 -- rect: left=100 top=63 right=77 bottom=149 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 3 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: ques2 -- part 41 (field) -- low flags: 01 -- high flags: 0000 -- rect: left=104 top=220 right=234 bottom=153 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 3 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: ques3 -- part 42 (field) -- low flags: 01 -- high flags: 0000 -- rect: left=227 top=22 right=36 bottom=276 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 3 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: ques7 -- part 43 (field) -- low flags: 01 -- high flags: 0000 -- rect: left=231 top=112 right=126 bottom=280 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 3 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: ques6 -- part 44 (field) -- low flags: 01 -- high flags: 0000 -- rect: left=231 top=192 right=206 bottom=280 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 3 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: ques5 -- part 45 (field) -- low flags: 01 -- high flags: 0000 -- rect: left=232 top=280 right=294 bottom=281 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 3 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: ques4 -- part 62 (button) -- low flags: 00 -- high flags: A004 -- rect: left=411 top=200 right=222 bottom=512 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Help ----- HyperTalk script ----- on mouseUp show card fld help set the scroll of card fld help to 1 end mouseUp -- part 64 (field) -- low flags: 80 -- high flags: 0000 -- rect: left=351 top=330 right=342 bottom=363 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: finished ----- HyperTalk script ----- on mouseUp global inum, fldloc, qc, cdname, buttontype, fonttype, sizetype, answertype, aligntype put cd fld "funny" into x if x is empty then answer "You havent typed a question!" with "OK" exit mouseUp end if put id of this card into inum set lockscreen to true set the loc of msg box to 23,208 put "WORKING..." into msg box go to card cdname domenu "new field" set the name of card fld "" to inum put x into card fld inum set the lockText of card fld inum to true set the style of card fld inum to scrolling set the lockText of card fld inum to true set the script of card fld inum to "on mouseUp" &return&"hide me"&return&"end mouseUp" hide card fld inum domenu "new button" set the name of card btn "new button" to inum set the rect of card btn inum to 4,122,68,164 if fldloc = "yes1" then set the loc of card btn inum to 124,65 end if if fldloc = "no1" then set the loc of card btn inum to 128,222 end if if fldloc = "no3" then set the loc of card btn inum to 255,114 end if if fldloc = "yes3" then set the loc of card btn inum to 251,25 end if if fldloc = "yes2" then set the loc of card btn inum to 256,194 end if if fldloc = "no2" then set the loc of card btn inum to 256,282 end if set the showName of cd btn inum to false set the style of cd btn inum to transparent set the script of card btn inum to "on mouseUp" &return&"show card fld ""e&inum"e &return&"end mouseUp" domenu "back" if aligntype is empty then ask "What type of alignment do you want?" with "Center" put it into al else put aligntype into al end if if fonttype is empty then ask "What type of font do you want?" with "Helvetica" put it into ft else put fonttype into ft if sizetype is empty then ask "What size font do you want?" with "24" put it into wer else put sizetype into wer end if end if domenu "new field" set the name of card fld "" to "ha" set the style of card fld "ha" to scrolling set the rect of card fld "ha" to 6,61,507,200 set the textFont of card fld "ha" to ft set the textSize of card fld "ha" to wer set the textAlign of card fld "ha" to al hide card fld "funny" put card fld "funny" into card fld "ha" if buttontype is empty then ask "What type of button do you want?" with "shadow" put it into btntyp else put buttontype into btntyp end if choose button tool put 2 into fun repeat 2 times domenu "new button" set the style of card button fun to btntyp add 1 to fun end repeat if answertype = "Variable" then ask "What is answer number 1" with "9 letters max/Yes or No" put it into xx1 put the number of characters of xx1 into zip if zip > 9 then beep 1 repeat until zip ≤ 9 beep 1 ask "What is answer number 1" with "9 letters max/Yes or No" put it into xx1 put the number of characters of xx1 into zip end repeat end if set the name of card button "new button" to xx1 ask "What is answer number 2" with "9 letters max/Yes or No" put it into yy1 put the number of characters of yy1 into zip if zip > 9 then beep 1 repeat until zip ≤ 9 beep 1 ask "What is answer number 2" with "9 letters max/Yes or No" put it into yy1 put the number of characters of yy1 into zip end repeat end if set the name of card button "new button" to yy1 end if if answertype = "True-False" then set the name of card button "new button" to "True" set the name of card button "new button" to "False" put "True" into xx1 put "False" into yy1 end if if answertype = "A-B" then set the name of card button "new button" to "A" set the name of card button "new button" to "B" put "A" into xx1 put "B" into yy1 end if if answertype = "Yes-No" then set the name of card button "new button" to "Yes" set the name of card button "new button" to "No" put "Yes" into xx1 put "No" into yy1 end if set the loc of card button 2 to 176,253 set the loc of card button 3 to 337,253 set lockscreen to false hide msg box wait 100 answer "Does that look alright" with "No" or "Yes" if it is "No" then tones end if go to card cdname if fldloc = "yes1" then put xx1 into card fld "yes3" put yy1 into card fld "no3" end if if fldloc = "no1" then put xx1 into card fld "yes2" put yy1 into card fld "no2" end if if fldloc = "yes3" then put xx1 into card fld "yes7" put yy1 into card fld "no7" end if if fldloc = "no3" then put xx1 into card fld "yes6" put yy1 into card fld "no6" end if if fldloc = "yes2" then put xx1 into card fld "yes5" put yy1 into card fld "no5" end if if fldloc = "no2" then put xx1 into card fld "yes4" put yy1 into card fld "no4" end if if fldloc = "no4" then put xx1 into card fld "yes1" put yy1 into card fld "no1" end if if fldloc = "yes4" then put xx1 into card fld "yes1" put yy1 into card fld "no1" end if if fldloc = "no5" then put xx1 into card fld "yes1" put yy1 into card fld "no1" end if if fldloc = "yes5" then put xx1 into card fld "yes1" put yy1 into card fld "no1" end if if fldloc = "no6" then put xx1 into card fld "yes1" put yy1 into card fld "no1" end if if fldloc = "yes6" then put xx1 into card fld "yes1" put yy1 into card fld "no1" end if if fldloc = "no7" then put xx1 into card fld "yes1" put yy1 into card fld "no1" end if if fldloc = "yes7" then put xx1 into card fld "yes1" put yy1 into card fld "no1" end if choose browse tool go to card cdname hide me end mouseUp on tones global x, aligntype, buttontype, answertype, fonttype, sizetype put empty into card fld "ha" select card button 2 domenu "clear button" select card button 2 domenu "clear button" choose select tool put card fld fonttypes of card default into ft put card fld fontsize of card default into st put card fld buttontypes of card default into bt answer "Choose type of font do you want?" with "OK" DoList 999,ft,one if item 2 of the result is empty then put "Geneva" into ft else put item 2 of the result into ft end if answer "Choose size of font do you want?" with "OK" DoList 999,st,one if item 2 of the result is empty then put 24 into st else put item 2 of the result into st end if set the textFont of card fld "ha" to ft set the textSize of card fld "ha" to st answer "Align the field: Left, Right, Center" with "Left" or "Right" or "Center" if it is "Left" then set textAlign of card fld "ha" to left end if if it is "Right" then set textAlign of card fld "ha" to right end if if it is "Center" then set textAlign of card fld "ha" to center end if answer "Choose type of button do you want?" with "OK" DoList 999,bt,one if item 2 of the result is empty then put "Shadow" into bt else put item 2 of the result into bt end if choose button tool put 2 into fun repeat 2 times domenu "new button" set the style of card button fun to bt add 1 to fun end repeat set the loc of card button 2 to 176,253 set the loc of card button 3 to 337,253 ask "What is answer number 1" with answertype put it into xx1 put the number of characters of xx1 into zip if zip > 6 then beep 1 repeat until zip ≤ 6 beep 1 ask "What is answer number 1" with "6 letters max" put it into xx1 put the number of characters of xx1 into zip end repeat end if set the name of card button "new button" to xx1 ask "What is answer number 2" with answertype put it into yy1 put the number of characters of yy1 into zip if zip > 6 then beep 1 repeat until zip ≤ 6 beep 1 ask "What is answer number 2" with "6 letters max" put it into yy1 put the number of characters of yy1 into zip end repeat end if set the name of card button "new button" to yy1 put card fld "funny" into card fld "ha" wait 100 answer "Does that look alright" with "No" or "Yes" if it is "no" then tones end if if xx1 = yy1 then answer "You cannot have two buttons with the same names" with "OK" tones end if end tones -- part 207 (field) -- low flags: 80 -- high flags: 0000 -- rect: left=334 top=330 right=342 bottom=346 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: conclusion ----- HyperTalk script ----- on mouseUp global inum, fldloc, qc, cdname, fonttype, sizetype, aligntype, gocon, goconvar put cd fld "funny" into x if x is empty then answer "You havent typed a question!" with "OK" exit mouseUp end if put id of this card into inum set lockscreen to true set the loc of msg box to 23,208 put "WORKING..." into msg box go to card cdname domenu "new field" set the name of card fld "" to inum put x into card fld inum set the lockText of card fld inum to true set the style of card fld inum to scrolling set the lockText of card fld inum to true set the script of card fld inum to "on mouseUp" &return&"hide me"&return&"end mouseUp" hide card fld inum domenu "new button" set the name of card btn "new button" to inum set the rect of card btn inum to 4,122,68,164 if fldloc = "yes1" then set the loc of card btn inum to 124,65 end if if fldloc = "no1" then set the loc of card btn inum to 128,222 end if if fldloc = "no3" then set the loc of card btn inum to 255,114 end if if fldloc = "yes3" then set the loc of card btn inum to 251,25 end if if fldloc = "yes2" then set the loc of card btn inum to 256,194 end if if fldloc = "no2" then set the loc of card btn inum to 256,282 end if set the showName of cd btn inum to false set the style of cd btn inum to transparent set the script of card btn inum to "on mouseUp" &return&"show card fld ""e&inum"e &return&"end mouseUp" domenu "back" if aligntype is empty then ask "What type of alignment do you want?" with "Center" put it into al else put aligntype into al end if if fonttype is empty then ask "What type of font do you want?" with "Helvetica" put it into ft else put fonttype into ft end if if sizetype is empty then ask "What size font do you want?" with "24" put it into wer else put sizetype into wer end if domenu "new field" set the name of card fld "" to "ha" set the style of card fld "ha" to scrolling set the rect of card fld "ha" to 6,61,507,200 set the textFont of card fld "ha" to ft set the textSize of card fld "ha" to wer set the textAlign of card fld "ha" to al hide card fld "funny" put card fld "funny" into card fld "ha" hide msg box set lockscreen to false wait 100 answer "Does that look alright" with "No" or "Yes" if it is "No" then tones end if if gocon is "Yes" then choose button tool domenu "new button" set the name of card button "new button" to "Restart Consultation" set the rect of cd btn "Restart Consultation" to 351,276,508,295 set the loc of cd btn "Restart Consultation" to 429,285 set the style of cd btn "Restart Consultation" to checkBox set the script of cd btn "Restart Consultation" to "on mouseUp" &return&"go to stack ExpertMenu" &return&"end mouseUp" domenu "new button" set the name of card button "new button" to "Another Question?" set the rect of cd btn "Another Question?" to 6,276,150,295 set the loc of cd btn "Another Question?" to 78,285 set the style of cd btn "Another Question?" to checkBox set the script of cd btn "Another Question?" to "on mouseUp" &return&"go to card ques"&goconvar &return&"end mouseUp" domenu "new button" set the name of card button "new button" to "Quit" set the rect of cd btn "Quit" to 222,316,322,338 set the loc of cd btn "Quit" to 272,327 set the style of cd btn "Quit" to checkBox set the script of cd btn "Quit" to "on mouseUp" &return&"domenu ""e&"Quit Hypercard""e &return&"end mouseUp" else choose button tool domenu "new button" set the name of card button "new button" to "Restart Consultation" set the rect of cd btn "Restart Consultation" to 351,276,508,295 set the loc of cd btn "Restart Consultation" to 429,285 set the style of cd btn "Restart Consultation" to checkBox set the script of cd btn "Restart Consultation" to "on mouseUp" &return&"go to stack ExpertMenu" &return&"end mouseUp" domenu "new button" set the name of card button "new button" to "Quit" set the rect of cd btn "Quit" to 222,316,322,338 set the loc of cd btn "Quit" to 78,285 set the style of cd btn "Quit" to checkBox set the script of cd btn "Quit" to "on mouseUp" &return&"domenu ""e&"Quit Hypercard""e &return&"end mouseUp" end if choose browse tool go to card cdname hide me end mouseUp on tones global x, aligntype, fonttype, sizetype put empty into card fld "ha" put card fld fonttypes of card default into ft put card fld fontsize of card default into st put card fld buttontypes of card default into bt answer "Choose type of font do you want?" with "OK" DoList 999,ft,one if item 2 of the result is empty then put "Geneva" into ft else put item 2 of the result into ft end if answer "Choose size of font do you want?" with "OK" DoList 999,st,one if item 2 of the result is empty then put 24 into st else put item 2 of the result into st end if set the textFont of card fld "ha" to ft set the textSize of card fld "ha" to st answer "Align the field: Left, Right, Center" with "Left" or "Right" or "Center" if it is "Left" then set textAlign of card fld "ha" to left end if if it is "Right" then set textAlign of card fld "ha" to right end if if it is "Center" then set textAlign of card fld "ha" to center end if put card fld "funny" into card fld "ha" wait 100 answer "Does that look alright" with "Yes" or "No" if it is "no" then tones end if end tones -- part 233 (field) -- low flags: 01 -- high flags: 0002 -- rect: left=3 top=267 right=280 bottom=32 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: con count -- part 234 (field) -- low flags: 00 -- high flags: 0002 -- rect: left=3 top=256 right=268 bottom=32 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: ans count -- part 242 (field) -- low flags: 00 -- high flags: 0002 -- rect: left=3 top=244 right=257 bottom=32 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: cd count -- part 328 (field) -- low flags: 81 -- high flags: 0007 -- rect: left=156 top=120 right=205 bottom=356 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: card id 7459 ----- HyperTalk script ----- on mouseUp hide me end mouseUp -- part 334 (field) -- low flags: 01 -- high flags: 0000 -- rect: left=6 top=123 right=136 bottom=66 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 3 -- text size: 9 -- style flags: 256 -- line height: 12 -- part name: label1 -- part 335 (field) -- low flags: 01 -- high flags: 0000 -- rect: left=94 top=47 right=60 bottom=154 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 3 -- text size: 9 -- style flags: 256 -- line height: 12 -- part name: label2 -- part 336 (field) -- low flags: 01 -- high flags: 0000 -- rect: left=222 top=6 right=19 bottom=282 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 3 -- text size: 9 -- style flags: 256 -- line height: 12 -- part name: label7 -- part 337 (field) -- low flags: 01 -- high flags: 0000 -- rect: left=225 top=95 right=108 bottom=285 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 3 -- text size: 9 -- style flags: 256 -- line height: 12 -- part name: label6 -- part 338 (field) -- low flags: 01 -- high flags: 0000 -- rect: left=226 top=175 right=188 bottom=285 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 3 -- text size: 9 -- style flags: 256 -- line height: 12 -- part name: label5 -- part 339 (field) -- low flags: 01 -- high flags: 0000 -- rect: left=226 top=263 right=275 bottom=285 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 3 -- text size: 9 -- style flags: 256 -- line height: 12 -- part name: label4 -- part 341 (field) -- low flags: 01 -- high flags: 0000 -- rect: left=98 top=204 right=217 bottom=158 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 3 -- text size: 9 -- style flags: 256 -- line height: 12 -- part name: label3 -- part 351 (field) -- low flags: 81 -- high flags: 0007 -- rect: left=156 top=120 right=205 bottom=356 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: card id 6501 ----- HyperTalk script ----- on mouseUp hide me end mouseUp -- part 476 (field) -- low flags: 80 -- high flags: 0000 -- rect: left=366 top=330 right=342 bottom=378 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: deleted ----- HyperTalk script ----- on mouseUp global inum, fldloc, qc, cdname, tox, toy, qcc, btn2, btn1, fonttype, answertype, sizetype, buttontype, aligntype, anx, anyy, spec1, spec2, xx1, yy1 put cd fld "funny" into x if x is empty then answer "You havent typed a question!" with "OK" exit mouseUp end if put id of this card into inum set lockscreen to true set the loc of msg box to 23,208 put "WORKING..." into msg box go to card cdname domenu "new field" set the name of card fld "" to inum put x into card fld inum set the lockText of card fld inum to true set the style of card fld inum to scrolling set the lockText of card fld inum to true set the script of card fld inum to "on mouseUp" &return&"hide me"&return&"end mouseUp" hide card fld inum domenu "new button" set the name of card btn "new button" to inum set the rect of card btn inum to 4,122,68,164 if fldloc = "begin" then set the loc of card btn inum to 36,143 end if if fldloc = "yes1" then set the loc of card btn inum to 124,65 end if if fldloc = "no1" then set the loc of card btn inum to 128,222 end if if fldloc = "no3" then set the loc of card btn inum to 255,114 end if if fldloc = "yes3" then set the loc of card btn inum to 251,25 end if if fldloc = "yes2" then set the loc of card btn inum to 256,194 end if if fldloc = "no2" then set the loc of card btn inum to 256,282 end if set the showName of cd btn inum to false set the style of cd btn inum to transparent set the script of card btn inum to "on mouseUp" &return&"show card fld ""e&inum"e &return&"end mouseUp" domenu "back" if aligntype is empty then ask "What type of alignment do you want?" with "Center" put it into al else put aligntype into al end if if fonttype is empty then ask "What type of font do you want?" with "Helvetica" put it into ft else put fonttype into ft end if if sizetype is empty then ask "What size font do you want?" with "24" put it into wer else put sizetype into wer end if domenu "new field" set the name of card fld "" to "ha" set the style of card fld "ha" to scrolling set the rect of card fld "ha" to 6,61,507,200 set the textFont of card fld "ha" to ft set the textSize of card fld "ha" to wer set the textAlign of card fld "ha" to al hide card fld "funny" put card fld "funny" into card fld "ha" if buttontype is empty then ask "What type of button do you want?" with "shadow" put it into btntyp else put buttontype into btntyp end if choose button tool put 2 into fun repeat 2 times domenu "new button" set the style of card button fun to btntyp add 1 to fun end repeat butscrip set the loc of card button 2 to 176,253 set the loc of card button 3 to 337,253 set lockscreen to false hide msg box wait 100 answer "Does that look alright" with "No" or "Yes" if it is "No" then tones end if choose browse tool go to card cdname put xx1 into card fld spec1 put yy1 into card fld spec2 hide me end mouseUp on butscrip global answertype, xx1,yy1,tox,toy,anx,anyy,saved if answertype = "Variable" or answertype is empty then ask "What is answer number 1" with "9 letters max/Yes or No" put it into xx1 put the number of characters of xx1 into zip if zip > 9 then beep 1 repeat until zip ≤ 9 beep 1 ask "What is answer number 1" with "9 letters max/Yes or No" put it into xx1 put the number of characters of xx1 into zip end repeat end if if anx = "Question" then set the script of card button "new button" to "on mouseUp" &return&"go to card ques"&tox &return&"end mouseUp" end if if anx = "Conclusion" then set the script of card button "new button" to "on mouseUp" &return&"go to card con"&tox &return&"end mouseUp" end if if anx = empty then set the script of card button "new button" to "on mouseUp" &return&"go to card "&tox &return&"end mouseUp" end if set the name of card button "new button" to xx1 ask "What is answer number 2" with "9 letters max/Yes or No" put it into yy1 put the number of characters of yy1 into zip if zip > 9 then beep 1 repeat until zip ≤ 9 beep 1 ask "What is answer number 2" with "9 letters max/Yes or No" put it into yy1 put the number of characters of yy1 into zip end repeat end if if anyy = "Question" then set the script of card button "new button" to "on mouseUp" &return&"go to card ques"&toy &return&"end mouseUp" end if if anyy = "Conclusion" then set the script of card button "new button" to "on mouseUp" &return&"go to card con"&toy &return&"end mouseUp" end if if anyy = empty then set the script of card button "new button" to "on mouseUp" &return&"go to card "&toy &return&"end mouseUp" end if set the name of card button "new button" to yy1 end if if anx = empty then if answertype = "True-False" then set the name of card button "new button" to "True" set the script of card button "True" to "on mouseUp" &return&"go to card "&tox &return&"end mouseUp" put "True" into xx1 end if if answertype = "A-B" then set the name of card button "new button" to "A" set the script of card button "A" to "on mouseUp" &return&"go to card "&tox &return&"end mouseUp" put "A" into xx1 end if if answertype = "Yes-No" then set the name of card button "new button" to "Yes" set the script of card button "Yes" to "on mouseUp" &return&"go to card "&tox &return&"end mouseUp" put "Yes" into xx1 end if end if if anyy = empty then if answertype = "True-False" then set the name of card button "new button" to "False" set the script of card button "False" to "on mouseUp" &return&"go to card "&toy &return&"end mouseUp" put "False" into yy1 end if if answertype = "A-B" then set the name of card button "new button" to "B" set the script of card button "B" to "on mouseUp" &return&"go to card "&toy &return&"end mouseUp" put "B" into yy1 end if if answertype = "Yes-No" then set the name of card button "new button" to "No" set the script of card button "No" to "on mouseUp" &return&"go to card "&toy &return&"end mouseUp" put "No" into yy1 end if end if if anx = "Question" then if answertype = "True-False" then set the name of card button "new button" to "True" set the script of card button "True" to "on mouseUp" &return&"go to card ques"&tox &return&"end mouseUp" put "True" into xx1 end if if answertype = "A-B" then set the name of card button "new button" to "A" set the script of card button "A" to "on mouseUp" &return&"go to card ques"&tox &return&"end mouseUp" put "A" into xx1 end if if answertype = "Yes-No" then set the name of card button "new button" to "Yes" set the script of card button "Yes" to "on mouseUp" &return&"go to card ques"&tox &return&"end mouseUp" put "Yes" into xx1 end if end if if anx = "Conclusion" then if answertype = "True-False" then set the name of card button "new button" to "True" set the script of card button "True" to "on mouseUp" &return&"go to card con"&tox &return&"end mouseUp" put "True" into xx1 end if if answertype = "A-B" then set the name of card button "new button" to "A" set the script of card button "A" to "on mouseUp" &return&"go to card con"&tox &return&"end mouseUp" put "A" into xx1 end if if answertype = "Yes-No" then set the name of card button "new button" to "Yes" set the script of card button "Yes" to "on mouseUp" &return&"go to card con"&tox &return&"end mouseUp" put "Yes" into xx1 end if end if if anyy = "Conclusion" then if answertype = "True-False" then set the name of card button "new button" to "False" set the script of card button "False" to "on mouseUp" &return&"go to card con"&toy &return&"end mouseUp" put "False" into yy1 end if if answertype = "A-B" then set the name of card button "new button" to "B" set the script of card button "B" to "on mouseUp" &return&"go to card con"&toy &return&"end mouseUp" put "B" into yy1 end if if answertype = "Yes-No" then set the name of card button "new button" to "No" set the script of card button "No" to "on mouseUp" &return&"go to card con"&toy &return&"end mouseUp" put "No" into yy1 end if end if if anyy = "Question" then if answertype = "True-False" then set the name of card button "new button" to "False" set the script of card button "False" to "on mouseUp" &return&"go to card ques"&toy &return&"end mouseUp" put "False" into yy1 end if if answertype = "A-B" then set the name of card button "new button" to "B" set the script of card button "B" to "on mouseUp" &return&"go to card ques"&toy &return&"end mouseUp" put "B" into yy1 end if if answertype = "Yes-No" then set the name of card button "new button" to "No" set the script of card button "No" to "on mouseUp" &return&"go to card ques"&toy &return&"end mouseUp" put "No" into yy1 end if end if end butscrip on tones global x, aligntype, buttontype, answertype, fonttype, sizetype, xx1, yy1 put empty into card fld "ha" select card button 2 domenu "clear button" select card button 2 domenu "clear button" choose select tool put card fld fonttypes of card default into ft put card fld fontsize of card default into st put card fld buttontypes of card default into bt answer "Choose type of font do you want?" with "OK" DoList 999,ft,one if the result is empty then put "Geneva" into ft else put item 2 of the result into ft end if answer "Choose size of font do you want?" with "OK" DoList 999,st,one if item 2 of the result is empty then put 24 into st else put item 2 of the result into st end if set the textFont of card fld "ha" to ft set the textSize of card fld "ha" to st answer "Align the field: Left, Right, Center" with "Left" or "Right" or "Center" if it is "Left" then set textAlign of card fld "ha" to left end if if it is "Right" then set textAlign of card fld "ha" to right end if if it is "Center" then set textAlign of card fld "ha" to center end if answer "Choose type of button do you want?" with "OK" DoList 999,bt,one if item 2 of the result is empty then put "Shadow" into bt else put item 2 of the result into bt end if choose button tool put 2 into fun repeat 2 times domenu "new button" set the style of card button fun to bt add 1 to fun end repeat set the loc of card button 2 to 176,253 set the loc of card button 3 to 337,253 put answertype into saved put variable into answertype butscrip put saved into answertype put card fld "funny" into card fld "ha" wait 100 answer "Does that look alright" with "No" or "Yes" if it is "no" then tones end if if xx1 = yy1 then answer "You cannot have two buttons with the same names" with "OK" tones end if end tones -- part 477 (button) -- low flags: 00 -- high flags: A004 -- rect: left=411 top=246 right=268 bottom=512 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: clear tree ----- HyperTalk script ----- on mouseUp answer "This will clear the whole system" with "OK" or "CANCEL" if it is "CANCEL" then exit mouseUp put "WORKING...." into msg set lockscreen to true put empty into card fld "dqcount" put empty into card fld "dccount" put empty into card fld "ans count" put empty into card fld "con count" put empty into card fld "cd count" put empty into card fld yes1 put empty into card fld yes2 put empty into card fld yes3 put empty into card fld yes4 put empty into card fld yes5 put empty into card fld yes6 put empty into card fld yes7 put empty into card fld no1 put empty into card fld no2 put empty into card fld no3 put empty into card fld no4 put empty into card fld no5 put empty into card fld no6 put empty into card fld no7 put empty into card fld ques1 put empty into card fld ques2 put empty into card fld ques3 put empty into card fld ques4 put empty into card fld ques5 put empty into card fld ques6 put empty into card fld ques7 put empty into card fld label1 put empty into card fld label2 put empty into card fld label3 put empty into card fld label4 put empty into card fld label5 put empty into card fld label6 put empty into card fld label7 put empty into card fld no4fld put empty into card fld no5fld put empty into card fld no6fld put empty into card fld no7fld put empty into card fld yes4fld put empty into card fld yes5fld put empty into card fld yes6fld put empty into card fld yes7fld put empty into card fld "problem" choose button tool put 7 into y put the number of card buttons into x subtract 6 from x repeat x times select card button y domenu "clear button" end repeat choose field tool put 53 into y put the number of card fields into x subtract 52 from x repeat x times show card fld y select card fld y domenu "clear field" end repeat repeat with x = 1 to the number of cards go to card ques1 put the short name of this card into x if x = "Build" or x = "full" or x = "fulltoo" or x = "default" then go to next card else domenu "delete card" end if end repeat choose browse tool go to cd build hide msg set lockscreen to false end mouseUp -- part 541 (field) -- low flags: 80 -- high flags: 0000 -- rect: left=397 top=1 right=13 bottom=440 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: yes7fld -- part 542 (field) -- low flags: 80 -- high flags: 0000 -- rect: left=397 top=39 right=51 bottom=440 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: no7fld -- part 543 (field) -- low flags: 80 -- high flags: 0000 -- rect: left=400 top=92 right=104 bottom=443 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: yes6fld -- part 544 (field) -- low flags: 80 -- high flags: 0000 -- rect: left=402 top=123 right=135 bottom=445 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: no6fld -- part 545 (field) -- low flags: 80 -- high flags: 0000 -- rect: left=403 top=172 right=188 bottom=457 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: yes5fld -- part 546 (field) -- low flags: 80 -- high flags: 0000 -- rect: left=404 top=205 right=217 bottom=447 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: no5fld -- part 547 (field) -- low flags: 80 -- high flags: 0000 -- rect: left=403 top=263 right=275 bottom=446 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: yes4fld -- part 548 (field) -- low flags: 80 -- high flags: 0000 -- rect: left=403 top=294 right=306 bottom=446 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: no4fld -- part 582 (button) -- low flags: 00 -- high flags: A004 -- rect: left=411 top=294 right=316 bottom=512 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Default ----- HyperTalk script ----- on mouseUp go to card default show card button "To tree" hide card button "return" end mouseUp -- part 1710 (field) -- low flags: 01 -- high flags: 0007 -- rect: left=402 top=89 right=175 bottom=510 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: problem -- part 1711 (field) -- low flags: 01 -- high flags: 0007 -- rect: left=124 top=304 right=342 bottom=182 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: dccount -- part 1760 (field) -- low flags: 00 -- high flags: 0007 -- rect: left=31 top=304 right=342 bottom=88 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: dqcount -- part 2001 (button) -- low flags: 00 -- high flags: A004 -- rect: left=411 top=270 right=292 bottom=512 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Edit ----- HyperTalk script ----- on mouseUp global tox, toy, fldloc, qcc, btn1, btn2, cdname, answertype, rpl1, rpl2, anx, anyy, rem, pp, spec1, spec2 put empty into spec1 put empty into spec2 put empty into fldloc put empty into anx put empty into anyy put the short name of this card into temp put empty into a put empty into b put empty into c put empty into d put empty into e put empty into f put empty into g put card fld ques1 into a put card fld label1 into a1 put card fld ques2 into b put card fld label2 into b1 put card fld ques3 into c put card fld label3 into c1 put card fld ques4 into d put card fld label4 into d1 put card fld ques5 into e put card fld label5 into e1 put card fld ques6 into f put card fld label6 into f1 put card fld ques7 into g put card fld label7 into g1 put empty into a3 put empty into b3 put empty into c3 put empty into d3 put empty into e3 put empty into f3 put empty into g3 answer"Edit 1.Question or 2.Conclusion" with "Ques" or "Con" or "Cancel" put it into rem if rem is "Cancel" then exit mouseUp if rem is "Ques" then ask "Enter the question number to delete" if it is empty then exit mouseUp put it into pain set lockscreen to true put "WORKING.." into msg go to card "ques"&pain put the id of this card into nm domenu "delete card" go to card temp end if if rem is "Con" then ask "Enter the conclusion number to delete" if it is empty then exit mouseUp hide msg set lockscreen to true put it into pain if a = pain and a1 = "Conclusion" then add 10000 to pain go to card "con"&pain subtract 10000 from pain put the id of this card into nm domenu "delete card" go to card temp else put it into pain go to card "con"&pain put the id of this card into nm domenu "delete card" go to card temp end if end if put the short name of this card into cdname if a = pain and a1 = "Question" and rem = "Ques" then if cdname ≠ "full" then put card fld "ques2" into vir put card fld "ques3" into vir2 if vir is empty and vir2 is empty then put "butques"&pain into work put "bac"&pain into wk get loc of card button wk get loc of card button wk click at it select card button work domenu "clear button" put the short name of this card into finn domenu "back" domenu "delete card" go to card finn subtract 1 from card fld "cd count" subtract 1 from card fld "ans count" show card fld "yes6fld" find "ques"&pain in any card fld put the foundField into jane show jane select text in jane domenu "Clear Text" choose browse tool hide jane if cd fld dqcount = 0 then put pain&"," into card fld dqcount else put ","&pain after last item in card fld dqcount end if end if else subtract 1 from card fld "ans count" put 100 into a3 select card button nm domenu "clear button" show card fld nm select card fld nm domenu "clear field" put empty into card fld yes1 put empty into card fld no1 put empty into card fld ques1 put empty into card fld label1 put card fld "ques2" into vir put card fld "ques3" into vir2 if vir is empty and vir2 is empty then go to card build choose browse tool put empty into a3 hide msg exit mouseUp end if end if end if choose browse tool if b = pain and b1 = "Question" and rem = "Ques" then put 100 into b3 select card button nm domenu "clear button" show card fld nm select card fld nm domenu "clear field" put empty into card fld yes3 put empty into card fld no3 put empty into card fld ques2 put empty into card fld label2 subtract 1 from card fld "ans count" choose browse tool if cd fld dqcount = 0 then put pain&"," into card fld dqcount else put ","&pain after last item in card fld dqcount end if end if if c = pain and c1 = "Question" and rem = "Ques" then put 100 into c3 select card button nm domenu "clear button" show card fld nm select card fld nm domenu "clear field" put empty into card fld yes2 put empty into card fld no2 put empty into card fld ques3 put empty into card fld label3 subtract 1 from card fld "ans count" choose browse tool if cd fld dqcount = 0 then put pain&"," into card fld dqcount else put ","&pain after last item in card fld dqcount end if end if if d = pain and d1 = "Question" and rem = "Ques" then put 100 into d3 select card button nm domenu "clear button" show card fld nm select card fld nm domenu "clear field" put empty into card fld yes4 put empty into card fld no4 put empty into card fld ques4 put empty into card fld label4 subtract 1 from card fld "ans count" choose browse tool if cd fld dqcount = 0 then put pain&"," into card fld dqcount else put ","&pain after last item in card fld dqcount end if end if if e = pain and e1 = "Question" and rem = "Ques" then put 100 into e3 select card button nm domenu "clear button" show card fld nm select card fld nm domenu "clear field" put empty into card fld yes5 put empty into card fld no5 put empty into card fld ques5 put empty into card fld label5 subtract 1 from card fld "ans count" choose browse tool if cd fld dqcount = 0 then put pain&"," into card fld dqcount else put ","&pain after last item in card fld dqcount end if end if if f = pain and f1 = "Question" and rem = "Ques" then put 100 into f3 select card button nm domenu "clear button" show card fld nm select card fld nm domenu "clear field" put empty into card fld yes6 put empty into card fld no6 put empty into card fld ques6 put empty into card fld label6 subtract 1 from card fld "ans count" choose browse tool if cd fld dqcount = 0 then put pain&"," into card fld dqcount else put ","&pain after last item in card fld dqcount end if end if if g = pain and g1 = "Question" and rem = "Ques" then put 100 into g3 select card button nm domenu "clear button" show card fld nm select card fld nm domenu "clear field" put empty into card fld yes7 put empty into card fld no7 put empty into card fld ques7 put empty into card fld label7 subtract 1 from card fld "ans count" choose browse tool if cd fld dqcount = 0 then put pain&"," into card fld dqcount else put ","&pain after last item in card fld dqcount end if end if if a = pain and a1 = "Conclusion" and rem = "Con" then if cdname ≠ "full" then add 10000 to pain put "butcon"&pain into work put "bac"&pain into wk subtract 10000 from pain get loc of card button wk click at it select card button work domenu "clear button" put the short name of this card into finn domenu "back" domenu "delete card" go to card finn subtract 1 from card fld "cd count" subtract 1 from card fld "con count" add 10000 to pain find "con"&pain in any card fld put the foundField into jane show jane select text in jane domenu "Clear Text" choose browse tool hide jane subtract 10000 from pain choose browse tool if cd fld dccount of cd full = 0 then put pain&"," into card fld dccount else put ","&pain after last item in card fld dccount end if else put 100 into a3 select card button button1 domenu "clear button" show card fld answer1 select card fld answer1 domenu "clear field" put empty into card fld yes1 put empty into card fld no1 put empty into card fld ques1 put empty into card fld label1 choose browse tool end if end if if b = pain and b1 = "Conclusion" and rem = "Con" then put 100 into b3 select card button nm domenu "clear button" show card fld nm select card fld nm domenu "clear field" put empty into card fld yes3 put empty into card fld no3 put empty into card fld ques2 put empty into card fld label2 subtract 1 from card fld "con count" choose browse tool if cd fld dccount = 0 then put pain&"," into card fld dccount else put ","&pain after last item in card fld dccount end if end if if c = pain and c1 = "Conclusion" and rem = "Con" then put 100 into c3 select card button nm domenu "clear button" show card fld nm select card fld nm domenu "clear field" put empty into card fld yes2 put empty into card fld no2 put empty into card fld ques3 put empty into card fld label3 subtract 1 from card fld "con count" choose browse tool if cd fld dccount = 0 then put pain&"," into card fld dccount else put ","&pain after last item in card fld dccount end if end if if d = pain and d1 = "Conclusion" and rem = "Con" then put 100 into d3 select card button nm domenu "clear button" show card fld nm select card fld nm domenu "clear field" put empty into card fld yes4 put empty into card fld no4 put empty into card fld ques4 put empty into card fld label4 subtract 1 from card fld "con count" choose browse tool if cd fld dccount = 0 then put pain&"," into card fld dccount else put ","&pain after last item in card fld dccount end if end if if e = pain and e1 = "Conclusion" and rem = "Con" then put 100 into e3 select card button nm domenu "clear button" show card fld nm select card fld nm domenu "clear field" put empty into card fld yes5 put empty into card fld no5 put empty into card fld ques5 put empty into card fld label5 subtract 1 from card fld "con count" choose browse tool if cd fld dccount = 0 then put pain&"," into card fld dccount else put ","&pain after last item in card fld dccount end if end if if f = pain and f1 = "Conclusion" and rem = "Con" then put 100 into f3 select card button nm domenu "clear button" show card fld nm select card fld nm domenu "clear field" put empty into card fld yes6 put empty into card fld no6 put empty into card fld ques6 put empty into card fld label6 subtract 1 from card fld "con count" choose browse tool if cd fld dccount = 0 then put pain&"," into card fld dccount else put ","&pain after last item in card fld dccount end if end if if g = pain and g1 = "Conclusion" and rem = "Con" then put 100 into g3 select card button nm domenu "clear button" show card fld nm select card fld nm domenu "clear field" put empty into card fld yes7 put empty into card fld no7 put empty into card fld ques7 put empty into card fld label7 subtract 1 from card fld "con count" choose browse tool if cd fld dccount = 0 then put pain&"," into card fld dccount else put ","&pain after last item in card fld dccount end if end if if a3 = 100 then put card fld label2 into anx put card fld label3 into anyy put card fld ques2 into x put card fld ques3 into y if x is empty and y is empty then hide msg exit mouseUp else add 1 to card fld "ans count" if rem = "Con" then put "Conclusion" into card fld label1 if the number of items in cd fld dccount = 1 then put 0 into card fld dqcount else delete last item of card fld dccount end if else put "Question" into card fld label1 if the number of items in cd fld dqcount = 1 then put 0 into card fld dqcount else delete last item of card fld dqcount end if end if put x into tox put y into toy put a into qcc put a into card fld ques1 put "begin" into fldloc answer "There is a question after this question" with "OK" answer "We must do a replacement question" with "OK" replace put rpl1 into card fld yes1 put "yes1" into spec1 put rpl1 into btn1 put rpl2 into card fld no1 put rpl2 into btn2 put "no1" into spec2 fill end if end if if b3 = 100 then put card fld label7 into anx put card fld label6 into anyy put card fld ques7 into x put card fld ques6 into y if x is empty and y is empty then hide msg exit mouseUp else add 1 to card fld "ans count" if rem = "Con" then put "Conclusion" into card fld label2 if the number of items in cd fld dccount = 1 then put 0 into card fld dqcount else delete last item of card fld dccount end if else put "Question" into card fld label2 if the number of items in cd fld dqcount = 1 then put 0 into card fld dqcount else delete last item of card fld dqcount end if end if put x into tox put y into toy put b into qcc put b into card fld ques2 put "yes1" into fldloc answer "There is a question after this question" with "OK" answer "We must do a replacement question" with "OK" replace put rpl1 into card fld yes3 put "yes3" into spec1 put rpl1 into btn1 put rpl2 into card fld no3 put rpl2 into btn2 put "no3" into spec2 fill end if end if if c3 = 100 then put card fld label5 into anx put card fld label4 into anyy put card fld ques5 into x put card fld ques4 into y if x is empty and y is empty then hide msg exit mouseUp else add 1 to card fld "ans count" if rem = "Con" then put "Conclusion" into card fld label3 if the number of items in cd fld dqcount = 1 then put 0 into card fld dccount else delete last item of card fld dccount end if else put "Question" into card fld label3 if the number of items in cd fld dqcount = 1 then put 0 into card fld dqcount else delete last item of card fld dqcount end if end if put x into tox put y into toy put c into qcc put c into card fld ques3 put "no1" into fldloc answer "There is a question after this question" with "OK" answer "We must do a replacement question" with "OK" replace put rpl1 into card fld yes2 put "yes2" into spec1 put rpl1 into btn1 put rpl2 into card fld no2 put rpl2 into btn2 put "no2" into spec2 fill end if end if if d3 = 100 then put card fld yes4fld into x put card fld no4fld into y if x is empty and y is empty then hide msg exit mouseUp else add 1 to card fld "ans count" if rem = "Con" then put "Conclusion" into card fld label4 if the number of items in cd fld dccount = 1 then put 0 into card fld dqcount else delete last item of card fld dccount end if else put "Question" into card fld label4 if the number of items in cd fld dqcount = 1 then put 0 into card fld dqcount else delete last item of card fld dqcount end if end if put x into tox put y into toy put d into qcc put d into card fld ques4 put "no2" into fldloc answer "There is a question after this question" with "OK" answer "We must do a replacement question" with "OK" replace put rpl1 into card fld yes4 put "yes4" into spec1 put rpl1 into btn1 put rpl2 into card fld no4 put rpl2 into btn2 put "no4" into spec2 fill end if end if if e3 = 100 then put card fld yes5fld into x put card fld no5fld into y if x is empty and y is empty then hide msg exit mouseUp else add 1 to card fld "ans count" if rem = "Con" then put "Conclusion" into card fld label5 if the number of items in cd fld dqcount = 1 then put 0 into card fld dccount else delete last item of card fld dccount end if else put "Question" into card fld label5 if the number of items in cd fld dqcount = 1 then put 0 into card fld dqcount else delete last item of card fld dqcount end if end if put x into tox put y into toy put e into qcc put e into card fld ques5 put "yes2" into fldloc answer "There is a question after this question" with "OK" answer "We must do a replacement question" with "OK" replace put rpl1 into card fld yes5 put "yes5" into spec1 put rpl1 into btn1 put rpl2 into card fld no5 put rpl2 into btn2 put "no5" into spec2 fill end if end if if f3 = 100 then put card fld yes6fld into x put card fld no6fld into y if x is empty and y is empty then hide msg exit mouseUp else add 1 to card fld "ans count" if rem = "Con" then put "Conclusion" into card fld label6 if the number of items in cd fld dccount = 1 then put 0 into card fld dccount else delete last item of card fld dqcount end if else put "Question" into card fld label6 if the number of items in cd fld dqcount = 1 then put 0 into card fld dqcount else delete last item of card fld dqcount end if end if put x into tox put y into toy put f into qcc put f into card fld ques6 put "no3" into fldloc answer "There is a question after this question" with "OK" answer "We must do a replacement question" with "OK" if the number of items in cd fld dqcount = 1 then put 0 into card fld dqcount else delete last item of card fld dqcount end if replace put rpl1 into card fld yes6 put "yes6" into spec1 put rpl1 into btn1 put rpl2 into card fld no6 put rpl2 into btn2 put "no6" into spec2 fill end if end if if g3 = 100 then put card fld yes7fld into x put card fld no7fld into y if x is empty and y is empty then hide msg exit mouseUp else add 1 to card fld "ans count" if rem = "Con" then put "Conclusion" into card fld label7 if the number of items in cd fld dccount = 1 then put 0 into card fld dqcount else delete last item of card fld dccount end if else put "Question" into card fld label7 if the number of items in cd fld dqcount = 1 then put 0 into card fld dqcount else delete last item of card fld dqcount end if end if put x into tox put y into toy put g into qcc put g into card fld ques7 put "yes3" into fldloc answer "There is a question after this question" with "OK" answer "We must do a replacement question" with "OK" if the number of items in cd fld dqcount = 1 then put 0 into card fld dqcount else delete last item of card fld dqcount end if replace put rpl1 into card fld yes7 put "yes7" into spec1 put rpl1 into btn1 put rpl2 into card fld no7 put rpl2 into btn2 put "no7" into spec2 fill end if end if set lockscreen to false hide msg end mouseUp on fill global qcc, rem, pp put script of card fld "deleted" into pp go to last card domenu "new card" choose text tool set textAlign to left set textSize to 24 set textStyle to bold, underline click at 10,44 if rem = "Ques" then type "Question:" set the name of this card to "ques"&qcc else type "Conclusion" set the name of this card to "con"&qcc end if choose button tool domenu "new button" set name of card button "new button" to "finished" set rect of card button "finished" to 229,330,303,342 set script of card button "finished" to pp choose browse tool domenu "new field" set the name of card fld "" to "funny" set the textAlign of card fld "funny" to center set the style of card fld funny to scrolling choose browse tool click at 246,131 end fill on replace global answertype, rpl1, rpl2 if answertype = "True-False" then put "True" into rpl1 put "False" into rpl2 end if if answertype = "A-B" then put "A" into rpl1 put "B" into rpl2 end if if answertype = "Yes-No" then put "Yes" into rpl1 put "No" into rpl2 end if end replace -- part 2025 (field) -- low flags: 80 -- high flags: 0000 -- rect: left=316 top=330 right=342 bottom=330 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: expertmenu ----- HyperTalk script ----- on mouseUp ask "Enter the edit id number to delete" if it is empty then exit mouseup put it into x put the number of card flds into tot if x > tot then answer "There is no id number "&x exit mouseUp end if answer "Are you sure you want to delete item "&x with "OK" or "Wait" if it is "Wait" then exit mouseUp put the short name of card fld x into dl delete first word of dl delete first character of dl delete last character of dl put deletefile(dl) into returnthis if returnthis = 0 then answer "It is gone" else if returnthis < 0 then OsErr returnthis else answer "Whoops, there was an error" end if end if put the number of cards into y if y > 1 then put the short name of this card into nme go to last card put the number of card buttons into cb put card fld cb into saved put the script of card button cb into savedbtn if cb = 1 then domenu "delete card" else choose field tool select card fld cb domenu "clear field" choose button tool select button cb domenu "clear button" subtract 1 from bg fld hidder end if go to card nme put saved into card fld x set the script of card button x to savedbtn choose fld tool else put the number of card buttons into cb choose field tool select card fld cb domenu "clear field" choose button tool select button cb domenu "clear button" subtract 1 from bg fld hidder choose browse tool end if choose browse tool if y > 1 then answer "It was replaced with the last menu item" with "OK" end if end mouseUp -- part 2035 (field) -- low flags: 80 -- high flags: 0000 -- rect: left=297 top=330 right=342 bottom=311 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: stackscr ----- HyperTalk script ----- on openStack go to first card put the number of cd buttons into x if x = 0 then put x into bg fld hidder end if end openStack on closeStack go to first card put the number of cd buttons into x if x = 0 then put x into bg fld hidder end if end closeStack -- part 2054 (field) -- low flags: 80 -- high flags: 0000 -- rect: left=287 top=330 right=342 bottom=299 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: deletestack ----- HyperTalk script ----- on openStack put the long name of this stack into temp go to card "default" put FontName() into rss put rss into card fld fonttypes go to card build answer "Is this a new or old system" with "New" or "Old" if it is "New" then go to card "full" put card fld "ques1" into x if x is empty then go to card build answer "Click on Built Expert System to begin." with "OK" show card fld help else answer "There is already a system here" with "OK" end if end if if it is "Old" then go to card "full" put card fld "ques1" into x if x is empty then answer "There is no system to work on" with "OK" go to card build show card fld help answer "Click on Built Expert System to begin." with "OK" end if end if end openStack on closeStack domenu "compact stack" end closeStack -- part 2055 (field) -- low flags: 81 -- high flags: 0007 -- rect: left=156 top=120 right=205 bottom=356 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: card id 4043 ----- HyperTalk script ----- on mouseUp hide me end mouseUp -- part 2059 (button) -- low flags: 00 -- high flags: A004 -- rect: left=410 top=317 right=339 bottom=512 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Home ----- HyperTalk script ----- on mouseUp go home end mouseUp -- part 2120 (button) -- low flags: 00 -- high flags: A004 -- rect: left=411 top=223 right=245 bottom=512 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Save System ----- HyperTalk script ----- on mouseUp global savedscr, trag, exp, p, scr, pep, filename answer "Are you sure your finished?" with "OK" or "Cancel" if it is "Cancel" then exit mouseUp put the script of this stack into savedscr --set the script of this stack to "" put the long name of this stack into p put the long name of this stack into x put the number of characters in x into y put the script of card fld expertmenu into exp put the script of card fld stackscr into scr set the loc of msg box to 10,300 put "Looking for ExpertMenu Stack" into msg box set cursor to watch repeat y times if character y of x = ":" then exit repeat else delete character y of x end if subtract 1 from y next repeat end repeat delete first word of x delete first character of x get Files(x) put it into scope put the number of words in scope into nm repeat nm times if word nm of scope = "ExpertMenu" then put 1 into trag exit repeat else put 2 into trag end if subtract 1 from nm end repeat put "WORKING" into msg foundfun if pep = 1 then set the script of this stack to savedscr exit mouseUp end if push card put card fld "ans count" into y put card fld "con count" into z add y to z go to card "ques1" put the number of this card into rtt set lockmessages to true hide msg answer "Choose a name for you Expert System" with "OK" answer "Click new when finished" with "OK" domenu "New Stack..." put "WORKING" into msg put the short name of this stack into testit if testit = "HyperExpert 2.0" then set the script of this stack to savedscr go to card full hide msg exit mouseUp end if put the long name of this stack into zzz set the script of this stack to "on openStack" &return&"go to card ques1" &return&"end openStack" pop card put the number of cards into xx subtract rtt from xx add 1 to xx repeat xx times set lockmessages to true go to card rtt domenu "copy card" go to zzz domenu "paste card" go p add 1 to rtt end repeat go p put cd fld "problem" of card "full" into pmm go to stack "ExpertMenu" repeat until bg fld hidder ≠ 5 go to next card end repeat if bg fld "hidder" = 0 then choose field tool domenu "new field" set the style of card fld "" to scrolling set the rect of cd fld "" to 166,120,403,185 set the loc of cd fld "" to 284,71 put pmm into card fld "" set the lockText of cd fld "" to true set the name of cd fld "" to zzz choose button tool domenu "new button" set the rect of cd button "new button" to 69,277,163,305 set the loc of cd button "new button" to 114,53 set the style of cd button "new button" to shadow set the autoHilite of cd button "new button" to true set the script of card button "new button" to "on mouseUp" &return&"go to "&zzz &return&"end mouseUp" set the name of cd button "new button" to select hide bg fld hidder end if if bg fld "hidder" = 1 then choose field tool domenu "new field" set the style of card fld "" to scrolling set the rect of cd fld "" to 166,120,403,185 set the loc of cd fld "" to 284,152 put pmm into card fld "" set the lockText of cd fld "" to true set the name of cd fld "" to zzz choose button tool domenu "new button" set the rect of cd button "new button" to 69,277,163,305 set the loc of cd button "new button" to 114,134 set the style of cd button "new button" to shadow set the autoHilite of cd button "new button" to true set the script of card button "new button" to "on mouseUp" &return&"go to "&zzz &return&"end mouseUp" set the name of cd button "new button" to select hide bg fld hidder end if if bg fld "hidder" = 2 then choose field tool domenu "new field" set the style of card fld "" to scrolling set the rect of cd fld "" to 166,120,403,185 set the loc of cd fld "" to 284,231 put pmm into card fld "" set the lockText of cd fld "" to true set the name of cd fld "" to zzz choose button tool domenu "new button" set the rect of cd button "new button" to 69,277,163,305 set the loc of cd button "new button" to 114,213 set the style of cd button "new button" to shadow set the autoHilite of cd button "new button" to true set the script of card button "new button" to "on mouseUp" &return&"go to "&zzz &return&"end mouseUp" set the name of cd button "new button" to select hide bg fld hidder end if if bg fld "hidder" = 3 then choose field tool domenu "new field" set the style of card fld "" to scrolling set the rect of cd fld "" to 166,120,403,185 set the loc of cd fld "" to 284,309 put pmm into card fld "" set the lockText of cd fld "" to true set the name of cd fld "" to zzz choose button tool domenu "new button" set the rect of cd button "new button" to 69,277,163,305 set the loc of cd button "new button" to 114,291 set the style of cd button "new button" to shadow set the autoHilite of cd button "new button" to true set the script of card button "new button" to "on mouseUp" &return&"go to "&zzz &return&"end mouseUp" set the name of cd button "new button" to select hide bg fld hidder end if if bg fld "hidder" = 4 then add 1 to bg fld hidder domenu "new card" choose field tool domenu "new field" set the name of cd fld "" to hidder choose field tool domenu "new field" set the style of card fld "" to scrolling set the rect of cd fld "" to 166,120,403,185 set the loc of cd fld "" to 284,71 put pmm into card fld "" set the lockText of cd fld "" to true set the name of cd fld "" to zzz choose button tool domenu "new button" set the rect of cd button "new button" to 69,277,163,305 set the loc of cd button "new button" to 114,53 set the style of cd button "new button" to shadow set the autoHilite of cd button "new button" to true set the script of card button "new button" to "on mouseUp" &return&"go to "&zzz &return&"end mouseUp" set the name of cd button "new button" to select hide bg fld hidder end if if bg fld "hidder" is empty then put 0 into bg fld "hidder" else add 1 to bg fld "hidder" end if go p go to card "full" hide msg answer "Are you finished with this system" with "OK" or "CANCEL" if it is "CANCEL" then choose browse tool set the script of this stack to savedscr exit mouseUp end if answer "This will clean out the tree" with "CANCEL" or "OK" if it is "CANCEL" then choose browse tool set the script of this stack to savedscr exit mouseUp end if put "WORKING" into msg set the script of this stack to savedscr put empty into card fld "ans count" put empty into card fld "con count" put empty into card fld "cd count" put empty into card fld yes1 put empty into card fld yes2 put empty into card fld yes3 put empty into card fld yes4 put empty into card fld yes5 put empty into card fld yes6 put empty into card fld yes7 put empty into card fld no1 put empty into card fld no2 put empty into card fld no3 put empty into card fld no4 put empty into card fld no5 put empty into card fld no6 put empty into card fld no7 put empty into card fld ques1 put empty into card fld ques2 put empty into card fld ques3 put empty into card fld ques4 put empty into card fld ques5 put empty into card fld ques6 put empty into card fld ques7 put empty into card fld label1 put empty into card fld label2 put empty into card fld label3 put empty into card fld label4 put empty into card fld label5 put empty into card fld label6 put empty into card fld label7 put empty into card fld no4fld put empty into card fld no5fld put empty into card fld no6fld put empty into card fld no7fld put empty into card fld yes4fld put empty into card fld yes5fld put empty into card fld yes6fld put empty into card fld yes7fld put empty into card fld dqcount put empty into card fld dccount put empty into cd fld problem choose button tool put 7 into y put the number of card buttons into x subtract 6 from x repeat x times select card button y domenu "clear button" end repeat choose field tool put 53 into y put the number of card fields into x subtract 52 from x repeat x times show card fld y select card fld y domenu "clear field" end repeat repeat with x = 1 to the number of cards go to card ques1 put the short name of this card into x if x = "Build" or x = "full" or x = "fulltoo" or x = "default" then go to next card else domenu "delete card" end if end repeat choose browse tool go to card build set lockmessages to false hide msg answer "Click on Build Expert System to start again" end mouseUp on foundfun global trag, exp, savedscr, p, scr, fileName hide msg box if trag = 2 then answer "Cant find stack ExpertMenu, must make new one" set lockmessages to true put newFileName("Click on the Save button","ExpertMenu") into fileName newStack fileName go stack fileName put the short name of this stack into nam put the long name of this stack into namer delete first word of namer delete first character of namer delete last character of namer if nam ≠ "ExpertMenu" then answer "It must be named ExpertMenu (one word)" with "Silly me" go p put 1 into pep exit foundfun end if domenu "Background" choose button tool domenu "new button" set the rect of bg button "new button" to 444,294,504,331 set the loc of bg button "new button" to 474,312 set the style of bg btn "new button" to transparent set the autoHilite of bg btn "new button" to true set the showName of bg btn "new button" to false set the icon of bg button "new button" to "Lge Next Arrow" set the script of bg btn "new button" to "on mouseUp" &return&"go to next card" &return&"end mouseUp" set the name of bg button "new button" to "Next" domenu "New Button" set the rect of bg button "New button" to 0,29,46,48 set the loc of bg button "New button" to 23,38 set the style of bg btn "New button" to shadow set the script of bg btn "New button" to exp set the name of bg btn "New button" to "Edit" domenu "New Button" set the rect of bg button "New button" to 0,29,46,48 set the loc of bg button "New button" to 21,331 set the style of bg btn "New button" to shadow set the script of bg btn "New button" to "on mouseUp"&return& "domenu ""e&"quit hypercard""e&return&"end mouseUp" set the name of bg btn "New button" to "Quit" choose text tool set the textAlign to left set the textFont to Geneva set the textSize to 12 set the textStyle to bold, shadow, outline click at 10,13 type "HyperExpert Menu" click at 412,49 set the textStyle to plain set the textSize to 9 put 1 into lil put 49 into plc repeat 4 times click at 412,plc type "Edit ID Number: "&lil add 1 to lil add 81 to plc end repeat choose line tool set the lineSize to 1 click at 0,20 drag from 0,20 to 511,20 set the lineSize to 2 drag from 0,23 to 511,23 choose field tool domenu "New Field" set the name of bg fld "" to "hidder" put 0 into bg fld "hidder" hide bg fld hidder domenu "Background" set the script of this stack to scr go p put the long name of this stack into thisname delete first word of thisname delete first character of thisname delete last character of thisname ResCopy thisname,namer,XFCN,345 else exit foundfun end if end foundfun -- part 2036 (field) -- low flags: 81 -- high flags: 0007 -- rect: left=0 top=0 right=342 bottom=512 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: help ----- HyperTalk script ----- on mouseUp hide me end mouseUp -- part contents for card part 328 ----- text ----- This is six -- part contents for card part 2036 ----- text ----- HyperExpert Help - click on field to close it ***Load this stack onto your Hard disk or it will run very slow if you don't. Use HyperCard and not SuperCard. I have experienced some problems with this stack while using SuperCard.*** *************For those of you who can't wait to get started.************ Step 1 - First click on the button "Build Expert System" Step 2 - It will ask you to define the problem to be worked on. This is the problem that the end users are having. For Example - My car wont start. Common questions or problems which get asked frequently is one way to think of it. Step 3 - Set Defaults. The HyperExpert Stack is designed to make setting up your system as quick and easy as possible. The defaults are so you can set your cards how you want them to look one time, and then you wont have to do it again. Like all Yes-No questions. Step 4 - After setting defaults you will have to click on the "Build Expert System" button again to get started. Step 5 - Now you start your questioning to come to a conclusion about the problem. For example, if your problem is "My car wont start" then a good first question would be "Did you check the gas tank". You enter it in the proper field and click finished when done. Step 6 - Now your at the tree portion of the stack. IF YOU CLICK ON THE QUESTION 1 BOX YOU CAN SEE THE QUESTION YOU JUST TYPED. You can also see the answers you have assigned for Question 1 (i.e Yes, No). Now click on the answer to the question you would like to work with next. For example - your question was "Did you check the gas tank" and if they answer "No" you want to reach a conclusion at that point. So click on the "No" answer box next to the box labeled Question 1. Step 7 - After clicking on the "No" box of Question 1 HyperExpert will ask if you want a question or a conclusion. If you choose conclusion, HyperExpert will ask you if you want the conclusion to go to another question. For example you might have another question you might want to ask even though you have reached one conclusion already. Simply enter the question number here. Step 8 - Now type your conclusion, like "You should check your gas tank" click finished when done. Step 9 - Now if your satisfied with all of your questions and conclusions click "Save System" and HyperExpert will begin to look for the stack "ExpertMenu". If this is the first time you have used HyperExpert it will not find the stack and will ask you to make a new one. When the new stack window comes up click save and dont change the name of the stack. You also need to name your question stacks. You may call these whatever you like. These are the stacks that the ExpertMenu Stack references. Step 10 - Your finished. Now give the ExpertMenu stack and the question stacks you created to the people who need your expertise. This may have sounded like a lot of steps but after using this stack once or twice it becomes very intuitive. Remember you can make the system as big as the memory and disk space of your own Mac will allow. You keep the HyperExpert Shell Stack for creating other systems. **A word of advise, make sure all of your questions eventually end with a conclusion, or your users may end up going down a path to no conclusion. **Note there is an edit button included on the ExpertMenu Stack. This allows anyone to remove the files you have created. You may want to remove this button, but it is up to you. It is primarily for your use. **Button Functions** **Build Expert System** Obviously is the first button you click on to get the process of building your system started. **Clear Tree** This button clears out the tree and the question cards that you have created. It is to be used if you have already saved the system or made some type of error that made it necessary to get rid of the entire system. **Default Settings** This button takes you to the area where you can decide what type of default settings you would like to have for your individual question cards **Edit** This button allows you to edit a question after you have created it. If the question is in the middle of the tree (i.e. there are other questions after it), then a replacement question must be created. If the question is at the end of the tree and there are no other questions after it, then it can be delete without having to replace the question. There is an edit button on the ExpertMenu stack. It will delete the question stack of your choice. You may decide to remove this button before you give it to your end users. Its up to you. **Set Answer Types** This is a popup menu which gives you a choice of answer types to set as a default. For example -- Yes-No, True-False. After setting this default all of your answer types will be of this kind. Notice there is a Variable answer type for answers which don't fit into one of the given categories. **Set Button Types** This is a popup menu which gives you the standard Hypercard choices for button types. **Set Font Size** This is a popup menu which sets the font size of the field containing your answer or question. **Set Font Types** This is a list menu generated by the Dolist XCMD. It loads all the fonts you have available in your system and gives you the choice of which font you want to use for the field your question or conclusion is contained. **Set Text Align** This is a popup menu which allows you to choose a type of alignment (left, right, center) for the field which contains your question or conclusion. **Save System** This button saves your questions and conclusions to a separate stack. It will prompt you to name your stack and if you have not created an ExpertMenu stack you will be prompted to do that as well. **Field Information** **Deleted Conclusions** This field shows the conclusion numbers you have deleted. HyperExpert re-uses these numbers until the field contains a zero and then it starts numbering from the last conclusion. **Deleted Questions** This field shows the question numbers you have deleted. HyperExpert re-uses these numbers until the field contains a zero and then it starts numbering from the last question. **Name of Problem** Obviously this is the name of the problem you defined in the beginning. **Total Cards** This is the total number of TREE cards. For instance if you fill up the tree card will all seven questions then add an eighth question, you would then be starting another tree card, so at that point you would have 2 tree cards or 2 total cards. **Total Questions** This is the total number of questions not counting conclusions. **Total Conclusions** This is the total number of conclusions not counting questions. -- part contents for card part 2055 ----- text ----- did you check the gas